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FOREWARD 

This report presents results of work conducted by Boeing Computer Services 
Company under NASA Contract NAS3-20385, "Wind Energy Storage Model Develop- 
ment." This program was conducted under the sponsorship of the Advanced 
Physical Methods Branch, Office of Conservation, ERDA, under the direction of 
Dr. S. C. Chang, and was administered by the NASA-Lewis Research Center Ther- 
mal and Mechanical Storage Section with Mr. L. H. Gordon as Project Manager. 
This report is in three volumes. 

I. Technical Report 

II. Operation Manual 

III. Program Descriptions 


The Boeing Program Manager for this work was R. W. Edsinger, and A. W. Warren 
was the principal investigator. 

For completeness, the summary sections 1.1 and 1.2 of Volume I have been 
repeated in the Operation Manual, Volume II. 
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1.0 INTRODUCTION 


This volume describes the computer programs for the simulation model for 
wind energy storage (SIMWIST). Each of the following sections contain a ver- 
bal program description with macro flow charts# and source code listings 
for each major program entity. Section 2.0 describes the model generation 
precompiler program which creates a Fortran model for the system to be simu- 
lated, Section 3.0 describes the simulation program. This is the executive 
program that exercises the Fortran model generated by the model generation 
program. Section 4.0 describes the file maintenance program (FILOAD). Sec- 
tion i.O describes the printer plotter program which is a post processor 
for the simulation program. All the source code to run a simulation is given 
in this volume# except for the library component source listings. The library 
source listings are given in Section 7-0 of Volume II# the User's AAanual, 
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2.0 JVDDEL GENERATION PROGRAM DESCRIPTION 


2.1 INTRODUCTION 

The Model Generation program accepts program commands which describe the sys- 
tem model in terms of standard components. Each standard component is repre- 
senTed by a subroutine. The program then constructs a FORTRAN model which 
consists of a series of calls to these subroutines. In addition to generating 
the FORTRAN source code for the system model, the Model Generation program 
produces a line printer drawn schematic diagram of the system and a list of 
the input data required to complete the model description. 

Upon completion of model generation, the F0R1RAN source code is compiled 
and the resultant object code is available as Input to the simulation program. 
The model source code may be punched onto cards for storage or manipulation 
by the system analyst. The model object code is also stored on a permanent 
file. In this way a given model can be used for several simulation runs with- 
out having to regenerate the model for each analysis, 

2.2 PROGRAM STRUCTURE 

Figure 2.2-1 contains a macro flow diagram of the Model Generation program. 

This flow diagram shows the principle tasks of the program. For each task, 
a statement number in the main program is given along with the name of the 
principie subroutine that accomplishes tine task. 

The first task upon starting program execution is to obtain the current T 1st 
of all standard components. The SIMWEST program was designed to be independent 
of the number or type of standard components. All that Is required of the 
standard components is that their inputs, outputs, and table quantities be 
arranged according to certain rules discussed in Section 6, Vol . 1. 

The sequence of performing fhe subsequent tasks I s very model dependent. As 
each task is identified and performed, data describing the system model are 

BCS 40180-3 3 
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Figure 2.2-1 SIMWEST Model Generation Program - Macro Flow Diagram 
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accumulated on a random access temporary file. This file, M7, contains a 
list of inputs for each component in the system model. As inputs are satisfied 
by model connections their names are modified to indicate the source of the 
Input information. A list of model component names, CMPMOD, is kept in core. 

In addition to +he component name, this list contains codes indicating the 
location of the component on the model schematic, the symbol to be used for 
the coniponent and the number of inputs the component requires. 

Once the END OF MODEL command is received, the data accumul ated for the mod- 
el is processed to generate the model source code and the model schematic 
diagram. 

The following sections describe each of the major tasks shown in Figure 2.2-1. 
Source listings for all subroutines are included in Section 2.3. 

2.2.1 Command 1 nterpretat ion 

The second task performed by the program is to begin the interpretation of 
data cards which contain the system model description commands. Figure 2.2-2 
contains a macro flow diagram of the command interpretation process. 

As each command card is read it is printed to provide a record of progress 
through the model description. The model description is given as a series 
of "phrases." These phrases are identified in each card image by the routine, 
NXTPH, which locates one of the allowable ph'‘ase delimiters; comnia, [,] , 
equals, [=sj, left or right parenthesis, [tlj, or three or more blanks. When 
the end of a card Is reached, a blank phrase is returned by NXTPH which causes 
a new command card to be read. 

Each phrase is first tested against the set of command phrases, shown In 
Table 2.2-1. If a match is obtained between the first ten characters of the 
input phrase and one of the conmand phrases the program branches to state- 
ment 400. At statement 400, tests are performed for unfinished tasks such 
as component definition that must be completed, or the end of the direct 
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Figure 2 . 2 - 2 . Model Generation Command Interpretation, - Macro Flow Diagram 
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TABLE 2.2-1 

MODEL GENERATION '"PROGRAM COMMAND PHRASES 


PHRASE 


USE 


ADO PARAMETERS 
ADD STATES 
ADD TABLES 
ADD VARIABLES 
DIAGNOSTIC CONTROL 
END OF MODEL 
FORTRAN STATE^AENTS 
INPUTS 

LIST STANDARD COMPONENTS 
LOCATION 

MODEL DESCRIPTION 

PRINT 

PUNCH 


Direct addition of parameters to model 
Direct addition of states to model 
Direct addition of tables to model 
Direct addition of variables to model 
Control diagnostic printout to model 
Specify end of model description 
Specify start of FORTRAN statements 
Specify input components 
Request listing of standard components 
Specify component location on schematic 
Specify start of model description 
Requested printed model output 
Request printed and punched model output 
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FORTRAN input task. Once any unfinished task has been completed a branch 
is made at statement 420 to the new task. 

If the input phrase is not identified as a command phrase, it's first two 
characters are compared to the list of standard component names, at state- 
ment 325. If the phrase is identified as a standard component, the program 
proceeds to either the new component routine, NEVCOM, or the component in- 
put routine, INCOM, depending on the current task, 

if a particular command phrase requires additional modifying phrases, these 
phrases will be located on the command card and examined as to their suit- 
ability as a part of performing the requested task. For example the INPUTS 
task will check for modifying port numbers or physical quantity names as- 
sociated with the input component. The “suitability" of a phrase will be 
determined by assuring that it is numeric, a physical quantity name, etc. 
depending on the specified task, 

2.2. LOCAT I ON Command Execu t i on 

The LOCATION command introduces the definition of a new component into the 
system model. This command must be followed by a numeric phrase that spec- 
ifies the component location on the model schematic diagram. Failure to fur- 
nish a numeric location number causes a warning to be printed and the compo- 
nent will not appear on the model schematic. 

i f the previous command involved the specification of a component LOCATION, 
or INPUTS, the input quantity list for that component is stored before exam- 
ining the next phrase as a valid location number. 

2.2.3 New Comoo aent Name Examination 

The next phrase following the location number phrase should contain the name 
of a standard component. When this occurs the subroutine NEWCOM is called. 
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If the name is rot that of a standard component a warning message will be 
printed and the program v*.'t I I continue on with command card interpretation. 

A flow diagram of the NEWCQ\'l subroutine is shown in Figure 2.2-3. The main 
purpose of the NEVVCOM subroutine is to get copies of the input and output 
lists for the specified component. Master copies of these lists are stored 
on permanent file^ for all standard components. Hc^vever, if a component 

has already appeared in the model description, an input list for that compo- 
nent will be stored on local file, M7. This copy of the input list must be 
used since it may contain information regarding previous connections. 

Additional tasks performed by MBVCOM include storing the symbol number, lo- 
cation number, and number of inputs, in the component name. These three in- 
teger numbers are stored in the last six characiers of the component's name 
by means of the PUTCOO routine. The PUTCOD routine allows up to 5 integer 
values to be stored in a double precision word. These integers may assume 
values between + 204-7. The routine GETCOD is used to retrieve these values. 
Figure 2.2-4 shows how the ten characters of each model component's name 
are used. 

The PUTCOD routine is also used to store each model component's identifica- 
tion number, !DC0i\\P, in the LOCATION sequence array, SEQA. Canponents are 
assigned consecutive identification nuirbers as they first appear in a model 
description. These numbers define the sequence of component names in the 
model component name list, OWtfOD, and are used as the record numbers for 
the component input lists on the mass storage file, M7. The sequence array, 
SEQA, stores the component I dent I f icat-ion numbers in the sequence that is 
specified by the components' LOCATION statements. In some cases this sequence 
may differ from that of first appearance in the model description. The LO- 
CATION statement sequence specifies the sequence that each model component 
subroutine is to be called in the sys tern mode I , . 
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Figure 2.2-^i, Use of Characters in Component Names 
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2.2.4 I npufs 


The INPUTS command proceeds one or more instrucMons specifying those com- 
ponents which provide inputs to the component which has just been located. 
Component interconnections are made in the routine INCOM. Connections are 
recorded in the lists of inputs which are generated for each component as 
they are introduced into the model. The source of an input is indicated by 
replacing the standard physical quantity input name with the output quan- 
tity name of the source. Characters 4 through 6 of this name identifies the 
source component. 

Figure 2.2-5 gives a macro-flow diagram of the INCOM routine. Upon enter- 
ing the INCOM routine, input and output name lists are obtained for the up- 
stream, i.e. input component. If this is the first appearance of this com^ 
ponent the input list is obtained from the permanent file, M18, via the rou- 
tine COMDAT. If the component had previously appeared in the model, i t wi I I 
have an input list on local file, M7, which will be used. The next phrase 
after the upstream component name is then examined. There are three valid 
possibilities for this phrase. It can be blank or another standard compo- 
nent name in which case the default option of connecting all matching phys- 
ical quantities at a pair of ports is taken. IF this phrase is numeric it 
is assumed that ports are being specified and all matching quantities at 
those ports are connected, via the routine PORTCN, If the phrase is alpha- 
numeric and matches an output quantity of the upstream component, only the 
specified physical quantit es are connected. Before returning from the IN- 
COM routine the input tist 'or the upstream component is stored on M7. 

2.2.5 END OF MODEL Cemmand Execution 

The END OF AAODEL contiiand indicates the end of the model description. This 
command initiates the model generation process by the ENDMOD subroutine. 

The ENDMOD subroutine generates the FORTRAN source code for the system mod- 
el routines EQMD, DATAIN, and BLOCK DATA MODEL and forms the mode] input 
requirements list. The principle sources of data for t-he ENDMOD routine are: 

BCS 4G180-3 
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(1) the collection of input name lists for each model component, sfored on 
M7; (2) the list of model component names, CMPMOD; and (3) the location s&- 
quence of the model components, stored in SEQA. These lists describe all 
connections that have been made between standard components, the component 
names, and their location sequence in the model description. Figure 2.2-6 
gives a macro flow diagram of the ENpiVIOD subroutine. 

The source code for the subroutine calls is generated fay the routines CALLCP 
and ENDCOM for standard components. This source code is temporarily stored 
on SCRTCH12. Lists of the state, variable, and parameter names contained in 
the model are also generated at this time and added to SCPTCH8, SCRTCHll, 
and SCRTCHIO, respectively. These tasks for all system model components and 
any direct FORTRAN. STATEMENTS, are completed when statement number 90 of 
ENOtVIOD is reached. 

The source code statements for EQMO are next written onto SCRTCH9. The sub- 
routines COMGEN and TABGEN are used to generate common statements for the 
model states, variables, parameters, and tables. The calls to standard com- 
ponents are transferred from SCRTCH12 to SGRTCH9 and the VARSET and RATSET 
entry point statements are added to SCRTCH9 to complete the source code for 

Egwo. 

At ENDWIOD statement number 700 the generation of subroutine DATAIN begins. 

The statements in DATAIN provide default values for the integrator error 
controls and the value of .99999 for all model parameters. If tables are 
present in the models, the routine TABDAT generates the common /CTABLE/ con- 
taining the si ng I e array TABLES which is used to load tabular data into the 
model. TABDAT also loads the arrays, TABNAM, MAXDIM, and LGCTAB with the 
table names, maximum dimensions, and pointers that are used in the table 
data input process. 

At ENDMOO statement number 860, SCRTCH12 is rewound and the start of the 
Input Requirement List tor the model is placed on it. Subroutine TABCAL is 
called to place the table information in this list. 
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The BLOCK DATA MODEL rouHne source code is then added to SCRTCH9. The routine 
COMEQU is called once for each of the state, variable, and parameter name 
lists. This routine generates additional name arrays and equivalence state- 
ments whenever the number of names in a list exceeds 108, This is necessary 
to accommodate a compiler limitation of only 19 continuation cards' in a sin- 
gle data statement. The NA/WARY routine is used to transfer the state, variable, 
and parameter names from SCRTCHs 8, 11, and 10 into source code data statements 
on SCRTCH9. The final task of the ENDMOD subroutine is to add the parameter 
and state names of the model to the Input Requirement List on SCRTCH12. 

2.2.6 FORTRAN STATEMENTS Command Execution 

The FORTRAN STATEfAENTS command allows FORTRAN source statements to be insert- 
ed directly into the system model. When this command phrase is encountered, 
a component name of FORT is added to the model component name list. Subse- 
quent lines of instructions are then placed on the source file, SCRTCH9, The 
first phrase of each subsequent line of instruction is compared with the SIM- 
WEST command phrases, When a recognizable command is encountered, the direct 
FORTRAN mode terminates and the word FORT is written onto SCRTCH9 to mark 
the end of that block of FORTRAN statements. The recognized command is then 
executed. 

Tests are included in the ENDMOD routine to provide special handling of any 
"FORT" components. If the ENDMOD routine encounters a FORT component while 
generat i ng ca 1 1 s to standard components, it transfers the FORTRAN source state- 
ments from SCRTGH9 to SCRTCH12 thus placing them in the proper sequence in 
the model equation subroutine, EQMO. 

2,3 MODEL GENERATION SOURCE LISTINGS 

Compilation listings of the source code for the model generation program 
follows. One of the subroutines, COMORO is not currently used in the pro- 
gram. Several other subroutines such as NXTPH, KOMSTR and READMS are used 
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In several of the programs and will be found in the source listings for 
FILOAD program (Section 4.5). The names of the model generation routines 
listed in alphabetical order, are: 


BLKDAT 

LINE 

CALLCP 

L 1 STSC 

(XIMEgU 

NA^^ARY 

C0A\GEN 

NAA\GEN 

COMORO 

NEWCOM 

CONNCT 

ORDER 

EASY 

PORTCN 

ENDCOM 

SCHEA\A 

ENDiV\OD 

SYMBOL 

HLINE 

TA8CAL 

tJBIT 

TABDAT 

IJBITl 

TABGEN 

INCOM 

VLINE 
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0006 I OOCOOS LOCOC 
uD06 I CO CO Cl NOCCUT 


0006 T 000002 NOe 0CG6 I CaOCOA NOCCR 

QCOS OOOOOO OCCRH QCC3 C6C00C OClNP T 


jCLQX 

!♦ 


fItOCK 0'«T« 

COCOOC 

D01C2 



CCHHClV/coCINP/OCINPTI13 l/COCOl/T/OCOUTPn3l/COCGRl/OCCKIT MO t 

coGoac 

C01Q5 

i* 


CCMKON/COC/WOeiN,NOCOUT,NOC,M OCHOn*NOCCRpLOC CC* 1 0 CAN , IXOC 

COOGOC 

D0i03 


C 

D^TA OCINPT/iaO*riK i/.OGOUTP/JOC*iI'H J/ 

tOCDQG 

CGI&4 



DATA HOC IN / 0/ .iNOCaUT/ fi/ ,MOC/- 1 / tNOC KOO/- 1 V»N CCCR / D/ , LOGOC A-| / 

GOCODO 

aeiU4 

fc* 


I ilCCAN/0/,TXOG/l/ 

COuCGC 

ci j 5 

7* 



COGDOC 



d ^ 



cn 

o 


O 

cx» 

o 

OJ 


SUPROUnWE CALLCP CNTRY POJMT DOGMAS 


STORACf lisro CODCUJ CCDSl*l; DATAIQI 000122; fiLANK COfiMONf2) COOCOQ 


Gonnon 

OOC3 

ODC^ 


0 LOCKS 

cm 

C T fiO 
COPCCf? 


CO0CO3 

G?DCrc3 

OODD03 


rx TCP hit RrrCREt^CC S I DIOCK, NAME I 


DQC6 

rOTCOD 

orG7 

S tPMQV 

aoia 

COPDAT 

0011 

IJ fiL 

DGl? 

KA**i.LH 

DC I 3 

Gc n 

0014 


o::jr’ 

l.'l PUl 

0016 

Mo:?A 

DO I 7 

WIOIS 

C32Q 

WtPR3i 


o 2 

S 

I® 

?d ^ 

O rd 


SrOF*6E *S5ICNMCMT tBLOCKi TYPr, RELATIVE LOCATION, NAHCI 


ODDI 


DC0C46 

lOOL 

0001 


EC 02 2 5 

2C1G 

00 CO 


DCDG56 

305F 

00 ED 


OODDbG 

*iDsr 

GOOD 

0 

DEOGOO 

CALLS 

0DC3 


GCOECO 

IPE AO 

orc4 

T 

COCCLfO 

NOT A» 

0GC4 

n 

Dcrooi 

T A e NA K 


0003 


O0G040 

loir 

UCCl 


0002 34 

2076 

DOOJ 


0DD270 

5 20L 

OCQO 


□DG026 

7ir 

ODOD 

D 

000012 

GOftMA 

GP0 3 

1 

DGDOOi 

TvfjrTe 

oroa 

I 

000022 

finUT 

OCOO 

D 

aC0023 

TYPE 


OCOl 


Q00034 

1336 

DCOl 


0004 07 

2S0G 

OCOl 


00D3D1 

33CL 

OGGI 


0QDD44 

SOL 

OCOG 

T 

0DC016 

I 

EDOO 

0 

noDDio 

KC kfCMP 

OC05 

I 

OOCDCl 

nov 

OCDO 

n 

G0CGG4 

xnoT 


0001 


000112 

154 G 

0001 


000170 

300L 

O'UOD 


D0E057 

34cr 

00 GO 

n 

DDDC20 

ANAnt 

0003 

1 

0DC0D2 

10 1 AG 

0000 

I 

00DD2S 

NO 

0QG5 

r 

OOOODO 

NGX 


CCOl C0O17I 1626 

occo oonoso loir 

OCfOl C00371 VOCL 

ccca 0 cacoii BirjK 
ocoo caoioi INJRS 
00C5 canc32 mop 

03 C 0 I 0 CC 3 t 7 NTAR 


0 0:100 

!♦ 

CCAILCP 



COOOOD 

OOIQI 

2* 


SUBROUTING GALLCP 1 G OMNAM 

.NOGONP, SOURCE, iSOURtlVRSCT, OUTPUT I 

COOODO 

COlDl 


G 

VCR SION 2. 

REVISED DEC 15 1975 


CODDDC 

ncioi 

4» 

C 

PURPOSE TO JKIUATF GALL 

GENERATION TOR STD. ECS CONPONENTS 

DDDDOC 

LClOl 

5* 

C 

CALL SCOUENCC COMUAH - 

COMPONENT NAME 


COCDOO 

GDICI 

6^ 

G 

NOCOMP 

- COMPONENT NUMOCP 


COODOC 

CGlOl 

7* 

C 

SOURCE - 

SOURCE CODE ARRAY 


00 C CCD 

rciGi 

e* 

c 

I SOUR - 

SOURCE CODE ARRAY POINTER 


OOOODC 

CD 101 

9* 

c 

IVRSL'T - 

ARRAY CONTAIN! . VA nSCI, RATSET 

INFORM ATI 0 

DOCCOD 

CPlv.1 


e 

OUTPUT 

- UORH ARRAY TOP OUTPUT TABLE 

NANCS 

VOLZZQ 

00103 

!]♦ 


JHf’LICIT OOUtaf: PRCCISIOH (A-71 


enciDDo 

DC1D4; 

12* 


iriPLIClT INTEGER 


CQCOOG 



BCS 40180-3 


00105 

13* 


CeHMON/^GlO/rnCAt), lURI 7G,Xni aG/CTAP/NOT*B,TABNAHUI 

0O1CJ6 

14* 


coriHor; /corolr/nox ,nov,,mdp 

rci07 

IS* 


GiHnisioN 1 vase 7 (. 1 ) ,sfiuf?cr lei 

U0107 

16 • 


1 , CALLSt 27 , OUTPUT ( 1 nX OOH 2 * 

CO no 

17* 


uruinr prlcjsxcn tjgvchp* iVRsri 

:dui 

la* 


OAIA NCWmP/121iNtW COtSPWT /,G0MMA/12M, 

0CU4 

19* 


n/7A .^Lr?K/l?H 

:ci 16 

20* 


PAT A calls /?4H CALL < 

VI \ 2 2 

21* 


Uf.TA XUOT/muXPOT ( 1 tINTT 

10120 

22* 

c -- 

-i SAVG NO. or VARIAPLCS A NO STATES BGrORG COUPONENt IS FORHGD 

£10122 

25* 


Ir44fjOtPMr^3 

00 12 3 

24 4 


C ALI PLil'Cnt} n ,I Vf?5t 1»N0VI 

30U4 

25^ 


1=4 •nocopp- j 

f.CLZS . 

2b* 


CM.L rUlCOU tl nVPSET.^OXl 

CC 126 

27* 


UPl It m , 71 ICOHNAH 

CC 111 

2 6# 

71 

r Gur ATI ^ C*7 *C ’ ♦20X * •COMPONENT •,A4/*C»I 

00131 

29* 

G 

-> LOAD SQimCG UITU CALL XXI 

CC132 

50* 


DO IGO 1~3 ,R 

CCl is 

31* 


IT( I .U -2) GO ID HQ 

QD137 

I?* 


SGURCC n l-HLflK 

oc m J 

33* 


GO 70 lOQ 

‘C141 

3 4* 

er 

SOURCf 1 1 »=CAUS Ml 

C C 1 N 2 

35* 

IGQ 

COM lA.'UG 

CC14 2 

36* 

c — 

-> LfiAn S7ANRAP0 COUPONCNT SU3R0UTINI: MAMC 

DC 144 

3 7* 


CALL STPKQV iCDHUAHi nZpSOURCC ,121 

CD 14 5 

3B* 


isoun-ls 

C 0145 

39* 

c -- 

DC 7 LIST OF TADLCS FOR C0MP0NCN7 

CD 1 4.6. 

40* 


C ALL rOH-OAT tCOHNAM , I2HTABS , NTAB , OUTP UTl 

comb 

4 1 • 

e > TCST IF lABLCS ARE REOOIREO Bt SUBROUTINE 

C C 1 U 7 

42* 


ir(NTAn.lf . C) GO TO 300 

CC1m7 

43* 

c — 

-> /iUO UDIE AnGtlurWTS TO CAtL SEQUENCE 

CO 151 

44 * 


IF( JO lAG.tT .60»VR TIE II WRITE, 101 M OUTPUT U 1.1 = 1. NT A8l 

e 0 1 fa D 

45* 

10 1 

rOBPAU* CALLCP-TABLES'/UJt.bA 101 t 

C 0160 

46* 

c — 

-> SCAN REOUIRFO TABLES 

00161 

4 7* 


00 20r irjjNTAB 

C G 1 b 1 

4R* 

c 

-> const PUCT lAO'l t NAME 

QCl 64 

4 9* 


ANAUCrOUlPOl II 1 

:0165 

5l> 


CALL f1BrOVICOHHAK,l,*l, AMAHC, m 

cnus 

SI*. 

G — 

-> API) lADLL NAME TO lAOLE LIST 

:utbb 

52* 


N'CTAUrnC. 1AB..1 

CC lb 7 

53* 


lAtNAPINCTABirAHAME 

t0170 

S4* 


iril.OT.ll CALL LINEIO, SOURCE, 1S00R,C0HIMA,1,XZI 

CC172 

55* 


CALL LINE 10, SOURCE ,ISOUn,ANAHE ,6, 12> 

CC17 3 

56 • 

2DG 

COtiTlt’UE 

00173 

57* 

C -- 

-> GET LIST OF OUTPUT QtJA:4TmES FOR COMPONENT 

:ci75 

5a+ 

300 

CALL CO'lPAT«CO)U!A‘1,12ltOlMP .NOUT .OUTPUT ) 

TGI 76 

59* 


ir 1 lO'IAO.GT .oniwni TE (IUR1TC,3031 (OUTPUT (1 1 ,I=1.N0UTT 

G G Z05 

6D* 

50 3 

FORKAtl • CALLCP-OUTPUTSVI IX.OAIOII 

CD2DS 

61* 

C — 

-> SCAN OUTPUT QUANTITIES 

CGZCb 

62* 


GO too 1=1 ,MOUT 

OCl’Dfa 

63 • 

e -- 

-> COUSTRUCl OUTPUT QUANTITY SPECIFIC NAME 

com 

64* 


CALL NM’nCN (0U1PUT ( 11 ,COMH AM, AN AHE T 

C3 211 

bS* 

C 

-> GET lOlIl character IN STO. NAME TO DETERMINE IF OUANTITY 

00211 

66f 

G IS A ST.ATt OR 4 VARIA[iLt 

QC212 

67* 


CALL CE M (OUTPUICl 1 ,10, TYPE! 

00.212 

6a* 

C — 

-> TEST FOR STATE OR VARIABLE 

00 213 

6 9* 


irdV'Pt.NE.PLNKl GO TO 520 


POCC'QO 

LOCCCC. 

QD2COO 

L'uacco 

c:)C.nno 

cooccc 

COCOQC 
L2:iCuCj 
TDCOCD 
r:-DDCi] 0 
tDCrCCC 
rOCOOM 
CCCDl 1 
cDon*i 
LOCC2 1 
rDL034 
COC..T54 
LOLC3^ 
ODGU3^ 

cogc^jo 

CDCn42 

ODGCHM 

cocrsi 

t'DDOSl 
OOGC& I 
f/OGCftC 

colp;gg 

COGC62 
CDGC62 
C3LG70 
CO0n7C 
GO DO 7 3 
COCl? 1 
000121 
LQ012 I 
COQUl 
G0U12 I 
000123 
cnci2 3 
LCUi:2 
CGOI ID 
0001^*0 
0001 
CC0170 
CQCITD 
CDOITO 
C0017D 
£.002 3*1 
G0u23*» 
LD0234 
0C0234 
D0C234 
OOC234 
cnc234 
000243 
C00243 
DD02S2 
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00215 

70 ♦ 

C - 

— > IMCRCMCNT VARlABtC COUNTER 

C002S; 

0021B 

71* 


NOVrMOV*! 

CC025S 

0G2U 

72* 


wr?iTcnK335MNAnr 

C0D26C 

0^0221 

73* 

305 

FOR'HATCAIDI 

C0C266 

D'E^22 

74* 


CO TO 33C 

LCQ2LL 

oq:-22 

75* 

C - 

— > iS'CffCHGWT STATE COUNTER 

C0C266 

0 0323 

76* 

120 

HOXXNOH*! 

cDonc 

DC324 

77* 


uri Tf «B »3C5 lAfJAME 

C0U272 

DG227 

7e* 

330 

irtNlAO.CT.O.OR.t.GT. U CALL LINE (0*S0URCC,I SOUR tCOHNA .1 . 12 1 

COL 101 

□•0 22 7 

79* 

G - 

— > Ann DIJIPUT NAME TO CALL SEQUENCE 

LOCl^O 1 

GC2il 

er* 


(•ALL LI Ml (Q,'.OUPCr •TS0UR,ANAHE,6,12) 

000120 

G0232 

ei* 


irt T YF>t *L 0 .nLrm 1 go lo 4on 

COCilLi 

L0232 

62* 

G - 

— > CO^yrPT CURRENT NO, or STATE TO DCO 

CGC33C 

00234 

£ 3* 


ENCOIi*’ t 3 t 34n,N01Nnx 

coon 3 

C02 3 7 

64 • 

340 

FORMA 11 Ml 

tcojit; 

GQ-2 3 7 

a? • 

C “ 

— > LOAD CURFUNT STATE NO, AS RATE SUBSCPlPT 

006142 

0034 J 

m* 


CALG SiRMOVfNO, * M,X0nit7> 

CC0342 

0^02 4 a 

8 7* 

e - 

— > LOAH CURLNT STATE NO, AS IHT SUECRiri 

U0C342 

G'C 2 41 

68* 


CALL STRMOV (ROM t3 , X0 0T, j 6 1 

CSC IS 1 

0G342 

89 * 


CALL t INf ( O^SOURer , ISDim, XDOT t 1 9, 12 1 

cnj?6a 

0C243 

9f* 

4DD 

CONTlNUr 

0DC373 

CC245 

91 * 


in JDTAC,GE .sni un I TI UWRI TLf4C51 source 

C0C373 

□ 0354 

92* 

MQS 

FORMA IM CALtCP-SOURCr VnX.SAlOII 

aiiJ4l2 

GL‘2S4 

93* 

G - 

SAVE NO, or VARIABLES A NO STATES AFTER COMPONENT IS FOPnED 

E0041 2 

DC355 

94* 


1-4 *NfiLDMP-2 

C0D412 

CD 35 6 

9 5* 


CALL nUTCDOn ,1 VR5E TrNOVr 

000415 

0C257 

9t* 


I r4 *Nr^C0MP 

C0C422 

or 300 

97* 


CALL HIT coon *1 VRSCT.NOXI 

C00424 

0C261 

9i0* 

500 

CfNUNME 

cDu4n 

DC362 

99* 


PfUlRN 

L0C431 

QC3t3 

lOD* 



C005I 3 


o o 

P3 

eg 

g £S 
^ 5f« 
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SUBRPtJTlNC COMFOU ENTPT POINT 00006*> 


STORAGE USED COOE (1 I 'C0Q074; OATAfOl OQGOAO; BLANK COKHON(2 I 000 uOO 

! 

txTtRfJiiL RrrrRCNCcs (&lock, nahi:i 

0n03 NUDUt “ 

aCD*l N1024 
□ DOS K‘CPR31 


SrORACr JiSSIGfJMtin IBtOCKf TYPCi RCL*TIVE LOCATION, NAME* 


GOOl ccrciT 

112G 

oroo 

OOOOG<i 

4ir 

Doao I 000001 1 

acoa 

000026 INJPS 

OCCO 1 C000Q2 

aCCQ I C00GO3 


oooc 

I ODODOO 

NEXT 






COiOO 

M 

CCOf-COU 

COODCO 

C'CXOl 

2* 


SUBROUTINE COHE OU f N AME . Ml 

cocccc 

GOiai 

3* 

c 

VERSION 1.0 REVISED AUG 28 197S 

CDcooa 

00101 

M • 

c 

PURPOSE CREATE C0U1V»LFHT WAKE ARRAYS TO AILOV DATA STAtENENTS 

LCCQDD 

COlQl 

5* 

c 

TO LOAD NAHC LISTS EXCEEDING 106 NAMES. 

L3GC0G 

i.ciai 

£♦ 

c 

CALL SrOIIENCE NAME - HAHE Of ARRAY TO PE EXTENDED 

CQCGOC 

-*C IDl 

7* 

c 

M - NUMPff? or NAMES IN LIST 

CO vj L. c c 

CG13i 

fe* 

G 

DESIGNED BY J.D. BURROUGHS AUG 1975 

LCC:3Q 

0E103 

9* 


IMPLICIT OOUEUE PPECISIOU (A-?f 

ccecDC 

conM 

1C* 


IMPLICIT IfnCGEP n»JtK,L,M,N) 


C;GJD5 

II* 


COUPLE PRECISION NAHC 

CBCGDC 

’.C13S 

1 2* 

c 

> calculate no, of EXIEN5I0MS REQUIRED 

CDC3CC 

GOICO 

13* 


NE*1=1N-| >/108 

CGCCUC 

CC107 

m* 


I'Ff NGXT.tC .DIRE TURN 

CEpuCOM 

CC107 

15* 

c 

> ADO AN raUlVALENCE STAIEMEMT FOR EACH EXTENSION REOO» 

CiD j C J H 

CCiU 

16* 


no 100 J=1 .NEXT 

LDCDI 2 

OCUM 

17* 


J=1 E&*1« ] 

CuCC 1 1 

3C114 

IE* 

c 

CALCULATE NO. OF WORDS IN EXTFhSIOH 

LGCCI 7 

OGl 15 

19* 


KrN-J*l 

CCC.C23 

COUh 

20* 


iriK. rt.icaiK=iD3 

GC^326 

CC120 

21* 


WRITE <9,ei ) name , I ,K .NAME , J.NAHE ,T 

LOCdZ^ 

CG131 

22* 

81 

FORMA nox, *nOUfiLE PRECISION • , A 5 , 12 . * < • , 1 3 , * 1 •/ 

tnjC5 2 

L.C131 

23* 


1 tX,TQlJ|VAt£NCC« • ,AS,M*,IS, ■ »,' .AS ,12 ,* 1 •) 

COGC52 

0C132 

• 

100 CON I J NOE 

LDCC5 2 


25* 


RETURN 

LOOC52 

0C135 

26* 



L0G073 



CD 

o 

tn 


-o 

0 
*-• 
GO 
O 

1 

OJ 


SUBPOUtl^C COHGrN tNTRY POIWT 0D02S2 


STORACt usro CODEUI rDOZTt; DATAIOr 001225; BLANiK COMMONil2l 000000 


CXTfPNAL RtFERfWCtS (BLOCKt NAHCJ 


3003 

ones 

G0C6 
JOG 7 
DOlO 

con 

□ 312 
C3 13 


STPHOV 

ISCA» 

L I pm: 
MRr w\ 
pjknui 
NI025 

r:u;DUi 
KJ033 
P,'f PP31 


STORAGE ASSIGNHENT (BLOCK, TYPE, RELATIVE LOCATION* NAH^T 


DOCO 


DG1172 

105 F 

onoi 


000112 

1 lOL 

0001 


□00017 

125C 

DOOl 


00 0053 

136G 

OCCl 


C0C862 

1«<|6 

anoi 


C0P166 

17^1G 

ODDI 


GG0176 

202G 

DODO 

D 

CD1162 

AW AHE 

0000 

D 

OOllSV 

BtNCQH 

OCCO 

D 

Q0US6 

BL».‘N 

DGG0 

n 

ecus 2 

GOMMLT 

orco 

I 

C10U70 

I 

OGDD 


001212 

INJPt 

0000 

I 

ODOCOO 

INT 

0 000 

1 

CCllSt 

1NTC6 

u rcR 

1 

cenooG 

I SC AN 

CODD 

1 

con 71 

1 SOUR 

GOOD 

I 

001 165 

J 

ODDO 

r 

001166 

K 

coco 

I 

G01167 

N«HC$ 

ccco 

1 

CG 1 ICR 

^NEXT 

CCCO 

0 

C0U60 

REALLT 

onoo 

D 

GJG021 

RNAHES 

OCGQ 

D 

ODGCOl 

SOURCE 






nciDo 

!♦ 

coioi 

2^ 

DQIDI 

3* 

sniGi 

A* 

C0131 


00101 

6* 

:oi9i 

7* 

^G131 

a* 

CQl 31 

94 

LC131 

1C* 

0C.133 

11 ♦ 

GO ICH 

12* 

00135 

IZ* 

EG 136 

m* 

lQ 106 

IS* 

coiia 

16* 

tnii2 

17* 

CC114 

le* 

ic 1 1 6 

IS# 

00123 

20# 

E 0 i 2 j 

21 * 

CC121 

22# 

00122 

23* 


CCOMCEN 

SOBnOUTiNE 
VERSION 2.1 C 
PURPOSE 


C0M&rM(N ,CtJAWE ,NUN I T ,IUM J T I 
VERSION 2. 

GENERATE COMMON STATEHENT GIVEN NAHES 
STORED IN IHL COKHON 


REVISED OCT 7 1V76 
OF VARIABLES 


GALL SEOUENCE 


N - NO. OF VARIABLES IW COHNON 

CNAML - COMMON NArtE. (2 CKARACTERSI 
NUNIT - FILE WO* CONTATNTNB NAMES 

JUNir - file no. to which source code is to 

PE VRITTEN- 

irPLlClT noUBLC PRECISION (A-2J 
IMPLICIT I N I E fi E R (1 , J . K , L , M , N I 
D/HENSIGN SDtmCE (8 ) ,RNAME$l3aG> 

DATA INTEG/(jHIJKLMN/ 

LITERAL 'rOOL' TO SAIISEY DBLE 


C -■ 


PRCCSN ASSCNMWT STKNTS 


DATA 
OAT A 
DATA 
Dr lA- 


rOMMUT/12H 
'^L NCCM/1 2H0PJ 
BIP;K/12H 
PI ALLT/i2H 


COMM 

/ 


REAL / 


RE Winn NlfNIT 
GAi r* NO. or 

Jf:l =0 

AP.AME =- BLNK 


EXTENSIONS TO COMMON STATEMENT REQ”0 


ucocoo 

cooooo 

EDCCOO 

CCCDDC 

nooncD 

cocooc 

TOO 000 
LOOCCO 
L C Cl D 3 □ 
C0G3QD 
CODCUO 
COOULO 

coccoo 

LOCOBO 

LCuPOC 

COGDCa 

L0C-C3C 

cnufjc 

COOOCO 

LGunCiL 

Lpcrcr 

CaC3G2 

CnCC33 


o o 
•vS 

SI 

► If 

!$SI 


BLNK 
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SUaftOUTlrJC COHORD ENTRY POINT 00050*1 


STORAGE USrO COOECII GQ052S; OATAtOI 00<I617; BLANK C0KK0Nf2> OOOGCQ 
COhNON BLOCKS 

0DG5 csro 000003 

D00*< CIO 0D0003 


EXTERNAL KTFCfltlNCES IBLOCK« NAME! 


00G5 

GETCOD 

0CU6 

PUTCOD 

03 D7 

REACMS 

0013 

KC^LTR 

OC 1 1 

STRHOV 

CQ12 

I jpin 

0013 

OKOfR 

DD14 

nvoui 

OOlS 

NI02S 

C3IG 

NlOlt 

ti Ti 1 7 

ULflfit 



Qi ^ 

r-^ 

V< ^ 


STORAGE ASSIGNMENT IBtOCK* TYPE, RtLATlYE LOCATION, NAHEJ 


i 


0301 


CCCC45 

IDOL 

0001 


aoQOi»< 

121G 

0001 


P00065 

13 66 

0001 


OC007N 

INNG 

OCOl 


CDPi^3 

1576 


DOCl 


CCC1X3R 

1720 

ODOO 


00302N 

2 OIF 

0001 


000260 

2IMG 

GCOl 


000277 

22MG 

OCOl 


000333 

235 6 

i 

OOCl 


CC03R j 

244G 

OCOl 


OODH13 

262G 

onoi 


OOOM3.pt 

272G 

GOOl 


0002N2 

2E0L 

OOCl 


000250 

30CL 


OCGl 


CCOMbl 

303G 

C^Ol 


0DCZS4 

360L 

ODOl 


000271 

MOGL 

OOOl 


OOC373 

5M0L 

DCCO 


r0 3 0M 5 

5«^ir 


GOCl 


0C0U22 

eooL 

GCGO 


005073 

621F 

0001 


0DGCM2 

RSL 

COCO 

0 

0GZ77G 

BLNK 

OCLO 

0 

C03C02 

CMARS 

1 

i 

COCO 

C 

L03Cai 

COUP 

ocoo 

0 

G020I 3 

Cn«ws 

DCGO 

D 

OGCCOO 

CONARR 

0003 

D 

003CCD 

FORLT 

CLCO 

I 

CJ1G0M 

I 

3CC0 

I 

CC3D21 


oroo 

I 

GOJDil 

jrOMP 

DCOM 


naooG2 

in JAG 

GCOO 

I 

003022 

IE 

OGDO 

I 

C0 302 S 

lEHROR 

•i 

oro3 


0C4S73 

INjPi 

G'-C4 


ccoaoo 

IRf AO 

OODO 

I 

003C23 

IRCARR 

OCOO 

I 

0D2M66 

ISEQ 

CfCCb 

1 

LLnCiCl 

I WRITE 


33CD 

I 

CC3120 

IV 1 

O^DQ 

1 

OC37MO 

TV2 

DODO 

I 

0D30!b 

J 

GGOO 

I 

C03C17 

JCOHp 

QCCO 

I 

CG3J15 

K 


DOIQ 

I 

ZLCZDu 

KOMSTR 

Gr^GO 

I 

003005 

LOK 

GCOO 

1 

C03C12 

NI NPUT 

0DO3 

I 

0003CO 

NSCG 

ccoo 

I 

C u 3 J 0 6 

NUORDS 


CCL3 

n 

ccccni 

sroA 

aocQ 

D 

003120 

U ] 

DCOD 

n 

O037M0 

U2 









i 


ODICQ 

:• 

CCONORD 


L0GD02 

COIDI 

2* 


SUfiROUTltlE 

C OHO PD ICHP HOD, NO COMP , INPUTS I 

COQ002 

COlOl 

T* 

C 

VCRS'ION 2. 

REVIsro SCPT 5 1975 

cozoor 

CClOl 

M • 

c 

PURPOSE OPDER CGKPONENTS SO THAT ‘inriEL EQUATIONS ARE EXPLICIT 

CCZC07 

0013} 

5* 

c 

CALL sroUENCE 

CKPHPD * ARRAY CONTATNlNfi NAPES OF HODEL COKPOWENIS 

L0CC3Z 

iTGlOt 

6* 

c 


NOCO-P - NUHBCR of components TN MODEL 

C00D02 

r 2 1 j j 

7^ 

c 


iNPur - INPUT name array vopk space 

cacco2 

CDIDI 

Ff 

c 

DtSirHCD BT 

J.D. BURROUGHS JULY J 9 75 

CCuCO? 

OC 103 

9 • 



IMPLICIT DOUBLE PRECISION ( A^2 ) 

LDGCG2 

rOJCM 

1C* 



implicit integer n,J, K,L,M,N) 

C00002 



oaiotr soa 


C0IC5 

n • 


DOUMCr PPECISIOH iJiPUTS 

CCl -6 

!?♦ 


cfK>-o»;yc5Co/ifSE:c! , 5 to*, n >/cio/ iptao, iwpite *io iac 

C01C7 

IZ* 


0 JKri.'EIO** t 1 ) , IVPUT S n ) tCOU*nn Ibbll tT-SCCCZOCl *IU1 (2001 

CCi37 

IM* 


1 , ryz (235 ] , VI t22Dl t^'2 « » 

roiia 

• 


Eoyivni».cr c-J .iwi ) i (V2,iv2> 

rsiii 

H * 


DATA ILUl'/' •/.FOaLT/’roPT 

CCllM 

!?• 


DATA rf-ir?5/J2PS 

CCUM 


C -- 

fc:i If ALL CMHf^CLfNTS GEaUCWCC WUH0CR5 

nznu 

• 


j r ( M u 6 *cr , f*rcoi'p ! cc tc izz 

CLl 1 b 

HC* 

C -r 

5^'GPt»Jtr Ubt. TO UN5C0UENCE0 C0HP0IICNT5 

CZllO 

21 • 

C — 

5C3?4 all KCOCL CrMPCJ^CMTS 

C2UC 

22* 


DO £5 1 * i »6r.C6HP 

rcua 

73* 

c — 

6<iP coppovr^fTS 

CG121 

2M ♦ 


J r 1 C«fK6C < T » p 6 6 *f Of?L r 1 r.r TO E5 

CC123 

25* 

c 

Cl I LocAncM focr 

rciZ'i. 

2£/* 


C / L L '1 T 6 f : , r P or- ( I ! , L fiK 1 

CGI26 

27^ 


if U CJ^.6 ( .EKr, IG ?i6 

CLl 2C 

2/. ♦ 

c — 

-> j!;Cr!HL'il GIcillCCC DG, COUHT 

atiin 

2V* 


DfCGrJiirC^l 

Cblil 

iZ* 


C/.LL ru7rcrD(^5c c »sccA, n 

GE132 

li* 

es 

Cf D7 jeet 

CCJ 32 

12* 

C cr 


Ori3M 

33* 

ICO 

M'yGCC^rKlIiC t 4 0DCCKP/63* 1 1 60 > 

Ct 135 

3M • 


DO 1?": ir ] ,»v^'EPr:5 

ccm3 

It* 

12G 

croApr ( [ 1 tc-cDc 

CC 

Zb* 

C -- 

zrz-z-^;::-. CC-'iUf CT ICJT 

ij:- me 

374 

C — 

-> CCA». PCCCL CO*'PO.rKTS IM CUPBCmI SEOUEHCt 

CD! M2 

3f ♦ 


CCPP-fL?*t^ 

DC 1M3 

3*> 4 


DC MCJ J-ijCirCJ 

CC1M3 

MJ4 

C -- 

-> C5 1 COPf'COXDT MiPPfP 

C C ! M i 

Ml 4 


CALL fC iCCDd ,5[ 6A.,3Cf-PPl 

1.C IM 5 

U2* 

c — 

71.51 rof?TMA>Z rC^'PDMCNTS 

C C ] M 7 

434 


1 r t c KT-peti ( f rcpp ) *i 0 * r&PL T jco to zto 

CC1M7 

MM • 

C 

-> C5 ( iniP'-rp or n/pins to ith cowroriu^T 

CC151 

45 4 


CALL ft: I CCD (5 ^CPPMOO ( 7 KPUT 1 

rDit 1 

Mt.4 

c — 

5/fP CCt'PCCfOTS Wl rn 7£P0 inputs 

CCl 52 

M7* 


if tMOPiJ] pLr.ClCO (D M50 

LCIZZ 

M?^4 

C - " 


cam 

MM 4 


CALL ff ACP5 17, ICP4JT5,>* JDPDT.ICOHP! 

cats 

52* 


CinPP5rrLC?< 

LD!55 

51 4 

c -- 

-> IC AC I^PDT 5 

zaisb 

S2* 


DO 355 /;j , CloruT 

LC15C 

53* 

c — 

-> H5i re fccDpr stau ij(puts 

CCiCl 

54 * 


If IKC'^SrvW cf fn 51/ 1 tIO, d CHAM 5. ] 1 .f 0.0 100 TO 300 

CC161 

55 4 

c 

5f I cA^r cr COitPOUUn ppoviduig input 

cciti 

SU* 


CALL 51 P^'.cv ( JU4H5 fK),M,3,C0‘lP,]J 

CC1L3 

57* 

c — 

1551 7C 5/ IP PAPAKCTCP5 

b€i£.M 

5?^4 


If tCD/P* E C * %/ )Crj 10 3D0 

LCILH 

5M4 

c — 

-> 7T5T fC 5VJP F 02 SfCUCNT T*L INPUTS FPOW S*MC COMPONCN 

OClLh 

c: 4 


Jf (CGPP.f C,C6PPG ISO 7n ZjC' 

C:i73 

6 1* 


C6HP5-C5f^P 

' C173 

J52* 

c 


CCt7I 

63 • 


00 2 C' j -1 , csro 

CC i 7^ 

LH * 


CALI rcTrcD* j,sro* , jccppl 

CC17M 

65* 

c -- 

i.;vpAr^l lACN CCPPONfNT VI7H INPUT CD«PCN£»T 

CC!7S 

66 4 


Tf 1 ' £C5*"P, \ , Z ,CKP»^C5 ( .JCOPP 1 , n .r C.OIGO TO 23C 

CC177 

674 

ZCO 

CCiiT JcJC 


rDCCQZ 

CGCCO? 

CL»D0G2 

CCGCD2 

tQLZDZ 

r,DLZ22 

ZZCZV2 

LCLZZ2 

fDLtLZ 

Cl} ZQLf b- 

ccLrct 
CCCG J U 
l?Zrjl U 

tzzci'f 

L t> C 2 6 
C2LZ2ii 
COCCiil 
CGC1j3.4 

Loccms 

C2GCMS 

CCL“'l3 

CCCCSfc 

CJLGCS 

ccl::l5 

CDCGfcS 

COCC67 

tOC57i< 

cocc? «< 

CCLL^Til 
ZZCZi^ 
CCCl CM 
CCClIiM 

C C L 1 0 7 
COC1C7 
CG C i 1 6 
CDCl U 
CCOJ2I 
GCC127 
CDLil2? 
CCC14 3 

LUZm 3 
CCLJM 3 
COCjSfi 

ZZZILI 
CCCJ67 
COG172 
CCCJ77 
COC 1 77 
CGC2CM 
C3G23M 
C ^ ^ tj' M 
zn l2 ] 1 

LCC2 3 1 


BCS 40180-3 


D0 2O1 

68* 


VPl TE U WR 1 TC , 201 ) C OHP ♦CKPHOOI ICOnP» 

QCE231 

GC205 

69* 

201 

FORMA n /5X, UARNIMG •♦♦,SX,»CAM!"T ICENTjfr •»*•»,• AS * 

DOD?*IO 

-DO 20 5 

TO* 


XVALIO INPUT COMPONEMT TO •»AR/J 

CQiC24 0 

OG 2G6 

71 • 


GO TO 3CC 

LDL24C 

002C6 

72* 

c — * 

> SE T I J BIT r 1 

CDDr4D 

0GZG7 

73* 

2fl!0 

CALL Ijnm «C0NARR,1,J,NSECI> 

tDE.^^2 

D3.21D 

74* 

300 

corn itJUf 

LDC252 

DC 2 1 2 

7 1* 


GO To 430 

l’CC2S2 

GO 21 2 

7t* 

C rr= 

rr===rr:: FOR FORTRAN COMPONENTS - rEOUIRB ALL PREVIOUS COMPONENTS 

C002S2 

DC213 

77* 

360 

no 3an j“i,i 

COC^E^ 

3G216 

78 • 


CALL I JV. ill tCONARR ,I tJtNSCOl 

r0u26G 

CDJ17 

79 ♦ 

360 

CPtniriUC 

rOGZ72 

QG221 


400 

corn iNur 

CDC272 

Ui0'.2 1 

ei ♦ 

C - =r 


CDI-Z72 

eC223 

8 2* 


DC 420 l = l,rJ.S:Ee 

:dc:72 

oarzs 

3* 

42Q 

ITLOTH-I 

LDCZTT 

DG226 

64* 

C - -- 

=r=-zz==_ ORDCP eOHPONENTS 

L0u2 7 7 

DC 2 30 

fib* 


C A L L OR Dif P 1 N Sr 0 , I $ C 0 , CON ARR ,I Uil . I U2 1 1C R ROR f T 6 ,HE I 

cot 30 3 

CC231 

ft't* 


iruf:pf?of?*Nr.arGo to 60G 

10031 S 

Q0?U 

87* 

C “ — 

y irsT roR succcsstul ordiering 

CO 0:3 15 

CG2 55 

8 8* 


UVGiRnS-N St 0/5 ’*1 

C&03 1 7 

DiC23 3 

8 ^* 

c r” 

z-zrzzr-: SAVE COPY OF StqUENCE ARR»kY 

DOC 317 

GO 234 

92* 


no 500 1-1,HU0RDS 

05032 8 

DD227 

9] * 


W1 ( 1 IrST CA i 1 1 

D005I3 

DC:40 

92* 

SOD 

cokt ifiue 

CQC535 

C.G24 3 

9 ;* 

c 

> Sri Rr^RRANnEMrNT count ER 

G0C335 

CiC24 2 

otj « 


i Pt A-RRz n 

toe 33 5 

0G24 2 

95* 

G - — 

> SCAN GONPONENTS 

GQ0335 

0 02 43 

96* 


DC StiZ 1-1»NSE& 

C0C34 1 

DD2*J 5 

97* 

c — 

> rrsT IF SEQltENGf HA5 BEEN hOOIFIED 

600341 

CC246 

9fi* 


irii sro 1 1 1 -to . I J 60 to 540 

CDu34 1 

G.E2 4 6 

99 ♦ 

c — - 

> INCPtHtrJT RE ARRANGEMENT GOONTER 

DQ.0 34 1 


IGD* 


IPE AWzIRCARR^I 

CGiLi 34 4 

00 2^,0: 

101* 

c — 

> Gfl CClHPOrJtNT NUkPCiR 

C3i034 4 

G02S1 

1D2* 


CALL Gt Tenon SCO 11 1 .U 1,JG0HPJ 

CGG34 7 

QD251 

103* 

c 

> SAVE COKPonENI names of those COHPONENTS whose StoUtNCE HAS 

CGC347 

D'Q2S2 

10 4* 


W.?( IRE A R PI z CMPM On ^ JCGiMP 1 

PDC363 

0D2S3 

10b ♦ 


GA^LiL PUTCODn ,SCQA ,JG GflPl 

L00365 

GC 2S4 

ICC* 

540 

EONT INUC 

CO0374 

QC2S4 

107* 

c ™ 

> TEST If Rf arrangement OGCURED 

GCC374 

GG2S6 

loe* 


ITi lRfARR.lt .CIPETURN 

C:GD374 

Q-026a 

109* 


WRITE nuRnr , 551 ) tuzin ,iri ,trcarrj 

CGC432 

0102 i>fr 

lie* 

551 

rORMAll /5X, 14H*** NGTICt ***.5X,*TMF SEQUENCE OF THE FOLLOWING COM 

t00416 

DCZ66 

m* 


IPONENTS HAS been MlERtn TO FORM AN EXPLICIT MODEL • //20 ( 2X * A4 t //» 

CGE4 16 

GG2bl 

112* 


REIURW 

r0u416 

Qi0 2di7 

in* 

C - -- 

rzzzzrzz SCAN COMPONENTS THAI CAUSED IMPLICIT LOOP 

00541 6 

0 0.270 

114* 

600 

J"0 

LGC422 

G'U27i 

115* 


no 6 20 1 = 1B»TE 

IG0422 

0:0274 

116* 


CALL GEiC0DHW2(l l tSEOA^JCOHPl 

CO043Q 

D0275 

117* 


JZJ4| 

C0C4 4 1 

0 0 275 

1 Ifl* 

C > SAVr N'AHES OF COKPONENTS 1# IHPtiCI? LOOP 

DG044 1 

0:02 76 

119* 


WllJ)rCKF»Ha:Df JCOMP) 

CC0445 

OC2 77 

120* 

620 

GGNTINUi: 

500450 

CG301 

121* 


WPI It MURITr*621HUU T? ,iri,j| 

C Cr L 4 5 G 

Or3G7 

122* 

621 

FnRKAl(/r,X, 1 SH»*» WARNING ♦•*,SX,»ThE FOLLOWING COMPONENTS TORMi *N 

L0C4t 4 

D0.3G7 

12 3* 


1 TMPIICIT LOOP. MODFL PCSULTS WILL BE IN'V*L 10. ’//ZO (2X, AMI//I 

C0u4h4 

D G 310^ 

124* 


FitUIRH 

CO0464 

3G31V 

125* 



CDG524 


BCS 40180-3 


5U3R0U11KE CONNECT 


K> 

Q» 


eWTRY POINT 0007S6 


STORAGE U5F0 TODt M > 001013; OATAtOl D0012S; HLAWK COhMONCZ) CGODCQ 

crphon blocks 


G:JC3 CJO 000003 


external RFTERENCES IBLOCK* NAME! 


occm 

Kr^STR 

OOCf 

ST*»^OV 

OO0S 

rr TcoD 

0007 

HL INF 

□ on 

VLlL-C 

COM 

P U T 1 

C0 12 

r;UCCD% 

□ 013 

NUPUl 

Qom 

M0 1% 

oniB 

L’ 1 0 r y 

aoif^ 

NL RR31 


Q 

SI 

ffi 

'D 

r* ^ 

r~< ra 


SlOIJftCt ASMGMHCMI JBtOCK , TTPCf REtftTlVC LOCATION, NAHE* 


0000 


GCr03M 

loir 

ODOl 


03012D 

UQL 

OCDl 


D00053 

12 !G 

0001 


O0DO62 

12 7 G 

OCOD 


CCCQ27 

I3T 

□ CC.l 


ccn:o7 

135L 

OOCl 


□00273 

1 H G L 

0001 


000236 

16 01 

00.01 


00 02^4 7 

20CL 

□ CGI 


C0C27Q 

22CL 

□ 031 


QLr2SU 

2i^0L 

0001 


00 02 75 

2GCL 

0001 


000310 

230 L 

cool 


000321 

3DDL 

CCDl 


LOG347 

320L 

OGOl 


CCC677 

333R 

□ 001 


000375 

34GL 

O.CGl 


0Q0422 

3601 

□ DQl 


Q00HM6 

44001 

CCDl 


000463 

<l2CL 

30C0 


DZVltO 

*l21f 

O0C1 


00D61O 

^^MGL 

OQQl 


000616 

500L 

□ 001 


00C741 

540L 

CCGO 

D 

L0na£}2 

A5TPSK 

D 0 00 

D 

OCCCDO 

El NK 

0000 

1 

CCOOC6 

1 

OLOO 

I 

000023 

ICO 

Dceo 

1 

2Q3:G13 

ICOL 

0CD3 

I 

COGOD2 

1 Pi AG 

DOSO 

J 

ocrcm 

IDS, 

OCOD 

1 

0C00I2 

11 IN 

OODO 

T 

0OG01Q 

ILOC 

0000 

I 

000015 

INCOL 

0 000 


CUD074 

INJP4 

OCGO 

I 

tiGPCOl 

INLTN 

tiCCCj 

I 

CGOOI 1 

1 R A G E 

0000 

I 

Q0QC16 

IRGOL 

CG03 


OOGODO 

IRE A D 

OCCO 

3 

ESD02 I 

I PL I N 

JCCO 

I 

ocrciT 

T7C 

OPOl) 

1 

cicoazo 

nl 

0003 

I 

DDOGOl 

TURITE 

GOOD 

1 

QDD026 

K 

DGC4 

I 

COOOOD 

KOHSTR 

OODO 

1 

0GCC22 

LIN 

QU03 

I 

OOCOC5 

LOgcOI 

QDOO 

1 

DOOOOM 

LOCUM 

OCOD 

0 

OOOC24 

PAG 






CCICG 

!• 

ccoknct 



CD 00 It 

00101 

2* 


SUBROtiTINE 

eONNCKPAGE tNPAGE, LOK,INPUTS tNOlN ^COMT ABtNOCOr.P 1 

DDCG16 

GO 101 

3* 

c 

VERSION 2. 


REVISED DTG IS 1975 

CDyCl6 

do 101 

4 ♦ 

c 

PURPOSE FORM 

C0NHECT1M6 LINE 3CTUEEM TUO SPECIflEO COMPONENT 

LOr.Dl 6 

GOlOl 

5* 

G 

SYMBOLS AND 

LAPEL IPPUTS 

CDCGl 6 

ICIOI 

6 A 

c 

GALL SEQUENCE 

PAGE 

- 13X56 ARRAY CONTAINING HOLLORITH 

D0C016 

OOIGI 

7* 

c 



RfPPESEKTAI lOtl or A PACE 

( CCC16 

uDlOl 

b* 

G 


MPAGE 

- eilBPLNiT PAGE NO, 

0CCG16 

CCICI 

94 

c 


LOK 

- LOCATION OF SYMBOL TO WHICH LINE IS 

CGCOl 6 

com 

lot 

c 



TO BE DRAWN 

CCGC16 

00131 

lit 

c 


INPUTS 

- array or INPUT ouantitv names 

COCO 16 

GDlOl 

I2t 

c 


NOiN 

- NO. OF INPUT CUAHTITY NAMES 

C0OQI& 



m 

o 

tn 


o 


oo 

o 


I 




coioi 

13% 

C 

COHT»B - Tiatt or ALL COMPOllfMT 

NAWES AHO 

coiai 

14* 

C 

TUCIi? LOCATIOMS 


GCISL 

15* 

c 

fiQCoy.p - NO. df covpomchTs 


ISO 13 3 

16* 


IMPLICIT 90UULZ PPtCiSION |#-7> 


C01C4 

17* 


IKPLICII integer fJ,J*K.L,«,rn 


;CIG5 

* 


OCUPLC FPfCISlON INPUTS 


2UCb 



CCnrON/CtO/JPtAO.TWPME 


GC137 

25* 


OlMENSIOrr PtGZ \ 13» 561 t IbPUIST 11 ,COKTAf* \ 1 ^ 


CC'U3 

2! • 


DATA ^LNH f\2U / 


GGH2 

224 


DATA ASTPSK /12H« •****/ / 


G0U2 

22* 

c 

'> rECCIVImS CfT^^PDJiTNl lOCATTON llUC HO* 


OCUH 

24* 


LOCLIIJ-T* 1 (LOK-l 1 / ini *4 


GCLM 

25* 

c - — 

O prn T VINO LOCATIOW COL* HO* 


fCllS 

2b* 


LrCCDL- 1 Hf tlOK- 1 , 3 DM »*lI-6 


rsub 

27* 


ir nOTAC .£0. 30) V.7 I Tf U ’-PI TL , 1 31 ( INPUTS ( 11 ,1* 1 

•HOI HI 

:.C12 5 

2b* 

13 

rOI'HA TM C Di:Nr 1- INPU 1 6 • / ( nf,6 A lf?1 J 


GG 12b 

2 

C - — 

'> SCAN rO!^f*6N£MTS LIST 10 LOCATE INPUT COPP, 

C3J26 

3S* 


DO |ri,JiCCGKP 


UOlil 

31* 


1 r tKO*^SI f? tlUPU IS ,4 , 4 , COPTAn Ul*n*E0.Q1G0 TO 

120 

CC133 

32* 

100 

CONTlNUr 


G0135 

33* 


CALL STnPCV nN?UTS,4»4 .TNLIN/n 


C Si i 6 

34* 


VriTEdr^TTr , 101 n NLUUtOK 


ZCIH2 

35* 

101 

FonhATUS/ , 22 h •** VArNlHC ••• CAN"! LOCATE 

, A4 i 

Dcm2 

36* 


1 ’ AS Ki\ TUFMJT COPPOUnn To LOCAfTON •,14 1 



37* 

C > |>r ru.tf'f IF 1»#PIJT CtiKPo^ttuJ 3SK*‘'I i>* comus list 

CGIM3 

Ic* 


GO TO 54G 


OD;Ih3 

30# 

C > GfT IOCATJO‘1 OF 1KPU7 C0MP0^(E:>/T 


OG iM<4 

4 ;* 

120 

CALL r£ TCCD T3tC0Hr A2. II 1 ,U OCJ 



4 1* 

c — 

-> or.UP^.lNE PAGE or INPUT COHPONEHT 


LGmS 

4 2* 


TPAGE-nL0C/i:3al*l 03 


GC1H5 

43* 

c — 

-> CGHPAPr INTUT COKP* PA&E TO CURPcHl PAGE 

SC1*<6 

44 * 


in XPAcr ,bE .Lptrc 1 CO TO 4?o 


SO Hb 

45* 

c — 

-> COSVtOT GEHEOAL PAGE LO C TO LOCAL PAGE 

LOC 

SCI 50 

4b* 


TL0C = ILDC-1 PAGE 


SC 153 

47* 

c 

-> CALf. LGC. LINE ANO COL. WO. FOR IHPUT 

COMPONEin 

CCIGI 

4E* 


lLIN-7*MUGC-n /l OM 4 


SC152 

49* 


1 COL= 1 1 OC-1 , ICl M 1*13-6 


SC 152 

SG* 

c — 

rrsT FOP INPUTS rpdj< dovhstream cn«p. 


CG153 

f 1* 


lOSrC 


00154 

52* 


in Ko*"sTR n Npius , 1 1 pink, n. hl - c irosn 


0G154 

S3* 

c — 

-> TEST IF deceiving CO«.P. AHO INPUT COHP . 

.IRE ON SAKE EINC 

□ C155 

5 4* 


iniLIif-lCCl lN)2l3r, 1 JC ,22 0 


:ci5b 

55* 

c — 

-> SA^'L UNL. TEST IF LEFT OR RIGHT 


LCILI 

5b* 

13D 

in ICFL. CE . ICCCOL ISO TO 14D 


COlbl 

57* 

c 

-> If HZ LINE AND INPUT IS TO LEFT 


COlbi 

5ft* 

135 

INCOL-l CGl * 6 


0Clb4 

59* 


inCOlrL GCCOL-5 


<j C 1 6 S 

61* 


ITC'IPCra -7 


GQlbb 

6 1* 


TTLr^-LCCLIU 


SClb7 

62* 


GO TO 160 


0G1L7 

L3* 

C 

-> liyi LINE AHO. INPUT IS TO RIGHT 


ccno 

64 ♦ 

14D 

I LCOL-i CM -5 


:cm 

6i* 


lFCOLrLGCCOi.^6 


SG172 

66* 


ITC-K'CCt M 


CCtTi 

67* 


1 U 'L net DM 2 


0017 3 

6ft* 

C 

-> Aou horizontal line 


OC174 

69* 

160 

TFt ICr,N£ *0 »G0 TO 5DG 



coorifc 
CCCOJ b 
cacolb 
cocri 6 

CETC-aib 
:a^ci b 
cnui:i6 
LCCC16 
b 

raco! 6 

tCoOl b 
6 

CGCC16 

:CCG26 

bcrc35 

LCLrb2 

CCGCb? 

ZOZLc.2 

TGCCtZ 

cao JQO 

CDC13C 
CCC107 
tnulit 
CC„L16 
L3C.llb 
CDCUfe 
LOC/1 I b 
CQC1.7C 
LCGl 2C 
CGL13 1 
CCL-lli 
CC'C 1 it. 
uDGlib 
rCCl^iG 
CDoma 
2 

C.C01S2 
CDGIS2 
GGulfcl 
CCC1G2 
GC01b2 
CGC175 
GCC 175 
IGGTjZ 
3 2 

CPG237 
LGC? J 1 
tDC?l^ 
CCC21 t 
IVC22 1 
lCi-?2 1 
CCC?22 
LCG225 
GG C ? iZ 
C3C2ir 
CGC722 
CG G2 3 b 


BGS 40180-3 


to 176 

70* 


CALL HL'T NE ( PAGE .TL IN . INCOL «1R COL ) 

□00237 

0D17T 

71* 


GO TO SCO 

060245 

00177 

7?* 

C 

> INPUT IS ABOVC. T€sT IE lEFT OR RIGHT 

C0C245 

Q'G^Oa 

734 

200 

If I IGOL'lOCCOl »3i)0,2M0.3?Q 

606247 

OC^GO 

74* 

G 

> AfOVE AMO SAME COLUMN 

□00247 

D0ZQ3 

75* 

24Q 

TMLINriLlN»3 

CDG254 

0D2C*i: 

76.* 


l»!Llt4:LCCLIM-M 

C0C256 

GC2a.5 

77* 


I TCrl OcCGL + 3 

GCC26I 

QQZCif, 

TO* 


1TL:1-1I!HN 

GP6264 

00237 

79* 


GO TO 2P'J 

L‘0 62 6 6 

CG207 

8C* 

c 

•> INPUT IS BELOW. TEST IF LEFT OR RIGHT 

60tJ?66 

3 0 210 

ai* 

220 

IF 1 1 r r.L-t PCCOL 1 34 0 , 260 , 360 

C0:27C 

0 0213 

82* 

c D.ttog AWO SAH€ COtUHN 

eoc?7c 

0C213 

»3* 

26Q 

IMlNriLIM-4 

CD6275 

oc2m 

84* 


irLlNTLOCLlNO 

6CC277 

CC21S 

as* 


1 IC-LOCCrL-a 

□06302 

3'021 6 

6 t* 



C063DS 

0C2I6 

er* 

c 

-> A[?0 9ERTICAL LINE 

G0C3CJ5 

O'G 2 1 7 

8:8 * 

2ftQ: 

If c int-.NE: *0 ir.o to soo 

C0631 0 

0C22J 

89 4 


CA IL UL I NS (PAGE » IGOt ,XNLIN * I Rt IN 1 

60631 1 

Q C 22 2 

90* 


GO TO SOU 

CCG31 7 

oc :?2 

91* 

C - — > INFMT IS IN urpri> LCFI QUAD. 

□00317 

DiC223; 

9?4 

300 

TTI *0160 TO 135 

LD6221 

0 022 5 

934 


Llrj = IU>JM 

CO E 32? 

CL226 

944 


TNC0L=ICQl.*6 

LCG325 

0G227 

9 b* 


inC CU. rLOCGOL'l 

6DD33C 

C0230 

96* 


IGOrlfTOl 

600333 

002 31 

9 7* 


TKLIN-.LTN 

CD2334 

C0232 

98* 


I PL Ill-LOf.LlN-4 

COJ735 

or 233 

99* 


I TC=inCC0L-9 

□C L 3 4 C 

G:D23«< 

ICO'* 


iTLrl-HiLTN 

EDL343 

0 0 236 

101* 


60 TO 400 

D0C3M5 

00 23 5 

132* 

c 

-> INPUT IS IN UPPER RIGHT OUaO* 

GQC34 5 

0 02 ijb 

1U3* 

32G 

T- 1 IO«*MS .G JGO TO 240 

r06347 

0C2MiC 

IC4* 


LlN-LOCLlN-1 

L06350 

e0.2Hl 

135 4 


INCOl-Tfai-l 

CDC353 

Dip 2 M 2 

1C6* 


IPCOL-Lnr.COL^b 

CPC3S6 

□'C2■^3 

1G7* 


TCG-.1 UCOl 

6C036 J 

CG2MM 

I OP 4 


INL TNriL lN*3 

60G3fa2 

0024 5 

1094 


IPL IN:1 in 

660365 

DO 24 6 

nc* 


ITCrLOCCOL*? 

630366 

00247 

m* 


lTL-l-ir?LItJ 

CG037 1 

0D2S3 

1 12 4 


GG 400 

600373 

QC2S0 

113* 

G -- 

-> INPUT IS IN LOWER LEFT QUID. 

C0637 3 

C3261 

nn* 

34!0 

in IPS*MJ -0 JGO TO 260 

636375 

DG253 

115* 


LlU:;L^^CLiN* 1 

0nC376 

G 0.254 

1 16 4 


TNCOLriCnl * 1 

CC6431 

00 255 

117* 


iRCOLzLOccOt-S 

COC404 

G'C256 

11&* 


ICO-lNtOL 

006407 

OG2S7 

} 194 


It.L ItirlL ltJ-4 

6C64 1 C 

00 2 60 

12C4 


TRLINtLIN 

0034 1 3 

0 02 fa 1 

1214 


■nc-iPLnL-6 

lC64 14 

OG2;02 

122* 


I L IN* 1 

CCC4 1 6 

QD2-6 5 

12 3 4 


60 TO 4rfj 

CD3420 

□ C2fa3 

124* 

C -- 

iriPUT IS IN LOMER RIGHT QUAD. 

CD042C 

00 2 64 

12S * 

360 

If t 105.flL*0TGi0 TO 14iD 

r.0L42 2 

06266 

12 C* 


L iN.rK IN-1 

0Qu423 



BCS 40180-3 


DCZh7 

127* 


lfc'COL^3UOL-5 

CCG92 t 


UB* 


ir?COL"LOCtOL^l 

000431 

CG27I 



ICO-X'^COl 

GDC4 34 

OC212 

1334 


m.LlM'UN 

00CM35 

CD273 

\n* 


lFLlh::lOGLlH^3 

00043b 

0017H 

13 2 4 


ITC'l^COL^^ 

CCC441 

OC275 

1334 


mrif>tTfV* 1 

CCG44 3 

CC^^S 

U4 + 

C — 

-> t.DLi VrRTlCAt LinT SrGf<c?^T 

CCu44 3 

0£?Z?6 

Ub* 

400 

CftCL INC {PAGC, icon WCrWt IRL INI 

COLfmti 

D:i27b 

Jib* 

c -- 

-> AMJ HnHJ2D>iTAt tINC SESKCNT 

CCC446 

DC277 

13 '^4 


CAil J-UNF I PAGE ,L ^ ^ ^ ^'COL »1 4C DL > 

EDC453 

CO?J3 

13 tr* 


GO TO bC3 

OCC'ii. I 

rc iGJ 

139* 

c 

-> IJ.rin 1$ fROH AMOTUff? PAGE 

OCCML 1 

v‘D3ija 

m ^4 

c -- 

USI TO PREVENT orr PAGE SYMRDt TROW FliLMUG OFF FAGt 

crc'ibi 

JG3JI 

14 l4 

^20 

irtLorur:*7 .OT .Sb.0lT.L0tcni.^l6*Ll .IIGO To M4Q 

rCEMb l 

co:i3i 

142 4 

c 

GEMPAU P/‘GE SyMPOL 

100463 

nD3C J 

14 5 4 


CML Pirr npAcrntioriTNO>,Laccot'5W2H/ 

0C0SC2 

CO 301*. 

144 * 


CALL PIf m PACE U ,( on IfM'U ttOCGOL'7* IM/ I 

oovsza 

C D 30 b 

ms* 


CALL tlPPOV tAsrnSK ,m»PAGLn ,L0CLIM*5» .LtlCCOL-151 

D00S33 

t:C3as 

1404 

c 

-> PLACE EXltRnAL PAGE MO* T N CXTERUAL PAGE SYKOOL 

E0D535 

00306 

147* 


iPAGt ::|PAGE 7130 

CC054 7 

00 n? 

me 4 


cpccrr rnAGiiPAor 

cru''S3 

UC312 

* 

*l2t 

rOEHATtEl^'^PACt * 1 

cocsoz 

CC21J 

ISC* 


Cf IL rtP:HGV(pAG n 1 a rPACr M nOCL IN*6J ^L0CC0L-l'6l 

LQv.562 

ctil** 

ISl* 


C/t L SIPHOV nSlRSK t 3 iGt^AGE 11 ,L OCL IN *7 I ,LOCC DL-157 

CCES76 

DD31S 

)S?4 

440 

1 TC=tPECM -}6 

Cr/C61 u 

0D3!b 

IS34 


I rt-toct Ui*h 

CT}LhlZ 

G3 5U 

IS44 

C — 

-> AOO TEXT TO INPUT LV^t 

tOCLl 2 

CGit T 

l^S* 

SOD 

K = i t iriit 1 , nn 

DClNl 6 

00320 

IS(4 


T 1L -1 MS5 mi) 

ECCfi2 1 

CO 321 

1574 


lr«N03^.LTn IGO TO 54 0 

C0L6? 3 

LC321 

15?? 4 

C " 

PPJVt^n LABELS FROH FAttlNG OFF SIDES Or PAGE 

lOUi-2 3 

CD323 

1S94 


ir*T‘Tcmn irrcri 

cacf Z 7 

t C32b 

IbC* 


irJITC*G7-123)lTG=T23 

C0C64 0 

0DJ2S 

lb 14 

c 

rrsT for labels going off top or rotton of page 

00064 0 

DC327 

U34 


mS::lTL»W# tNOjN'l ) 

aCCL46 

00.327 

IU 3 4 

c -- 

PEVCRSC OlftFCTlON OF COLUMN TG PREVENT LOSS OF LABELS 

:^oaL<( 6 

303 30 

lfc4* 


If lltism ,1,0P.1DS,GT •SMK = -H 

CDC 65 2 

OGilj 

l.bS* 

e — 

-> SCftU INPUTS FrOH input COHp, 

rCu652 

C0332 

Itib* 


DO 62C T-1 ,NOTN 

C0C677 

00 3 32 

16 74 

c -- 

TEST TO ASSURE THAT tAeCLS STAY ON PAGE 

CiOCb?7 

GG335 

16 6 4 


If nTtm.nOR.JTL^KT.SbJaO TO 540 

Cflie.TT 

0C335 

109* 

c -- 

-> AOO INPUT NAMES TO PAGE 

UOC677 

0 0 357 

no* 


CALL 5T9KOVI1NPUTS ID nf?*PASril^lTLI.lTC» 

DOCTIS 

30337 

m* 

c — 

«> m^eREHENT PRINT LINE EITHER UP OR DOWN 

OC D 7 1 5 

00343 

172* 


iiL=in +K 

000733 

DG3m 

173* 

S20 

gontujuc 

CD074 1 

0C34S 

174* 

540 

Nciti=n 

CD074 1 

00344 

175* 


RF TURN 

CDC74 1 

CO 14 5 

776 4 


END 3 CONNCT * **4*** 4 ** 4**** **♦* *▼*♦♦♦ 

CCiCIZ 


BCS 40180-3 


KM 

to 


MAIN PROGRAM 


STORAGE uStD COOEfl* 001136; OATACOI 0Q21M6; BLANK COmMONI2I OOOODO 
COMMON HL0CHS 


0 00 3 

DOCS 
00 06 
0 0Q7 
0010 
30 11 
□ 3 12 
aoij 


CIO OOOOOT 

COPDCR coaool 
CTITIE GOQOU 
fSPO COG 121 
CT aB 000 311 
cor INP COG lU q' 
CGCOUT 

ccccPi c?3 
COG liOOOl 1 


CJfTtPNAL RfFCRENCCS (BLOCK* NAHCt 


00 m 

RL ADHS 

DO 15 

nxtph 

GDIS 

icrpM 

0317 

STRMOU 

03 2 0 

KCHSTR 

0021 

ruTCOD 

0072 

NUMIIVC 

CG?3 

t:EVtOK 

302^1 

HC ntiUR 

aczs 

ILCOM 

0326 

Lf’TlHS 

□ 327 

UrpPDO 

Q.0 30 

sent. HA 

Gd31 

Llf TSG 

cni2 

ti I M TP % 

3333 

hunus 

ocm 

M02S 

0035 

ROT FI 

0036 

NRniJ% 

0337 

LI 0 31 

ocmd 

Lion 

Dom 

Ni FR2S 

00^2 

L'RCkl 

06M3 

Nk f f ^ 

D3^<4 

N S T OPS 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAHEt 


3C01 

0CnC66 

loot 

OCOl 

000MS6 

lODOL 

0000 

C01310 

10 IF 

0000 

001275 

nr 

OCGl 

0004 TO 

lie CL 

OOCO 

0G1 352 

no IF 

GOOl 

noGSio 

12D3L 

ooni 

OD0535 

12 2:TL 

DCDO 

001 366 

1221 r 

0C31 

D0054 7 

140CL 

cnoi 

ccrcGG 

IM3G 

GCOl 

DODI 27 

164G 

OODl 

000144 

17 4G 

OCDl 

CDD573 

23CGL 

occo 

LO 1 3 1 1 

201 r 

JOLO 

CC1317 

ztisr 

GOOD 

001324 

2C7F 

DDOl 

000237 

216C 

GDOl 

0QU54 

JOOl 

GODl 

CIj061 4 

3 90 CL 

OOGl 

CG04 35 

3060 

CODl 

OQOl 6 1 

32 0L 

0001 

0002 ?1 

32 5L 

ocai 

000.26C 

32BL 

OCDl 

C0C264 

33CL 

COCO 

ED1333 

33Sr 

DOOl 

CC03D1 

4 001 

QCCl 

0306SQ 

40i:CL 

ocoo 

001350 

<tci r 

ODDI 

CC0355 

4 let 


BCS 40180-3 









--ys.fZ 




DOGl 


0C0331 

'»2GL 

0001 


0G0361 

5 net 

DDOl 


OCCl 


CG072^ 

5?0Pt 

ODDI 


000736 

&30QL 

DO 01 


onoi 


CDICZI 

5^0 

0001 


OGIGZS 

6 DO PL 

OOOD 


onoi 


neiCbT 

6 2 0 0L 

0001 


001100 

6?2Dt 

0001 


■JDQO 

P 

rcoozz 


oroo 

n 

0 00^^ 1«* 

CHPMQD 

DCDD 

0 

D0C3 

0 

CQir71 

nCPHNtt 

Qcao 

D 

00125G 

DCPKAX 

□ 000 

D 

Qooa 

! 

C01253 

J 

DTCC 

: 

00124 1 

1 cmhax 

COOO 


3300 

T 

CG1252 

ICPMA X 

crca 

1 

CC127D 

JOCOMP 

0C03 


ODDO 

r 

CC.1236 

iPU^rcH 

0^03 

I 

ooojna 

■IPC AO 

0000 


CO 13 

I 

CLG007 

ixac 

oncD 

1 

001246 

] le 

0000 


COCO 

n 

CGOGOO 

LOtK'O 

0013 

I 

cocoas 

LOCOC 

OCPP 


OC GO 

1 

GCl2t3 

HFWC 

0013 


PC3CC2 

?IOC 

3C1 3 


ocoo 

I 

CCI23M 

KOCOHP 

□ 01 3 

I 

OGnOGl 

rjocouT 

0004 


OOCfl 

1 

ccrooc 

Knx 

0 ncfa 

I 

GOOCCO 

Q 

DOOD 


CC 1 1 

□ 

CCOQD'Q 

orouTP 

DOLD 

D 

0U1265 

PUUS 

□ 006 

D 

lice? 

D 

OCODOl 

TAPWArt 

ccao 

n 

CC003D 

T I 7LE 




• ‘■■■ 









,i', ; . -r-.., 

000 TO 1 

SOOGL 

0001 


00CT12 

SlDOt 

OGOl 


G0040I 

520L 

000750 

54 COL 

DGOl 


001007 

5420L 

QGCO 


C01413 

S42ir 

001M35 

6161F 

DODl 


001044 

61701 

6000 


CO 14 36 

6 18 IF 

001 123 

62 60L 

oroi 


001 125 

63GCL 

GCCO 

D 

CC1237 

PINK 

001440 

CPPNTS 

0000 

D 

001260 

conP 

ccro 

D 

CC 124 4 

CftHliNO 

eool DO 

D1 wruT 

0000 

n 

U0G246 

OOUT 

ccco 

D 

C0124 2 

fORLT 

001440 

ichpmt 

OGQQ 

r> 

C0DCD2 

ICOM 

uCCO 

1 

CC1262 

ICCPP 

00G3D2 

i n TAG 

ooco 

I 

001254 

INOC X 

DC13 

I 

Gupcnt 

lor AN 

C01235 

I T ASH 

0013 


corcro 

luoc 

0CC3 

I 

DJPCOl 

I 1 I f 

0Q1247 

IT 

OCCO 

1 

001265 

J 

cc:d 

1 

CGPTrO 

K or ; i H 

001264 

LT ASK 

CDPQ 

I 

00)266 

UPlWJ 

GCCD 

1 

CL 126 7 

nroni 

njCCOM 

tfOCCR 

CC13 

r 

GOOGCO 

NOCIN 

0013 

I 

CCPC05 

t;oCHOo 

CDG0D2 

NOP 

0CD7 

T 

OOODOO 

NOT Af) 

QC04 

I 

CPOOOl 

wnv 

0012S7 

NT ASK 

0012 

0 

Dor.coo 

OCCRIT 

ccio 

0 

CLGjGD 

oc irvPT 

ooconi 

SEGA 

ooco 

0 

00CD60 

SOUHCt 

D CCO 

n 

C01273 

1 Af^OlH 


DC 100 

1* 

CE»SV 






CC 0000 

GOlOO 

2* 

c 

PROCPAM CAS yt INPUT 

=IOO.OUTPUT=1DO»T»PES 

= 1WPUT,T)IPC6=0UTPUT 

cooooc 

GOIOJ 

3* 

c 

1 ,TAPC7=tCa,MPEB = 

ICG, TAPE 9= 

IDO 

pTAPFlO- 

10D,T»PEIIS! 

L0DtTApE12r|0Dt 

0D0D3C 

PC 103 

4* 

c 

2 TArE4=lCC,TAPE7B= 

ioc,pungh= 

1 00 

,T*PF3=PUMCH » 


COCOOD 

rci03 

54 

e 

version 2.1 




REVISED OCT 

15 19 76 

DOOCOO 

rci33 

64 

c 

PURPOSE TO CENCPATE FORTRAN 

SOURCE OF ECS MODEL IN 

THE 

CGCCDC 

uCLca 

?♦ 

c 

rORH RCQUIRFO BY THE 

NQtJSIH PROGRAM. 


CDLOao 

:ci:o 

p* 

c 

tllllTA T IONS ARRAY DIKE NS TONS 

rrpoSF TME 

FOLLOyiNG LIMITS 

cccuoa 

no ICO 

4* 

c 

tiMiUD quantity Current value 

ARRAYS 

IMPOSING THE Ll 

CODCOD 

PCIDD 

K* 

c 







CDOGCG 

CGIOO 

114 

c 

standard components 

K 

- ISO 

MSI! n 

K-tI'3»/6 

cocooc 

GC13Q 

!?♦ 

G 

r # 


H 

“ ISO 

CMPNTSn 1 

K = IU 

CGOOCD 

00 I DO 

1 }♦ 

C 







CDOOOO 

0Gi:3 

14 ♦ 

C 

STO.. COMPONENTS PER 

MODEL 

K 

= IDO 

IVRiUllI 

KrT*5/4 IStt 

CDGODO 

C31CD 

' IS* 

C 



K 

= lao 

CCNARRI I 1 

K=t6D*lt**.S IS 

COOQDC 

C0123 

If ♦ 

C 

1 A 


K 

- 100 

ir.EQ 111 

Krl ISEE COHO 

CODDDD 

LCIDQ 

17* 

c 



K 

- 1 GO 

lui 1 n 

K::I ISEE COMO 

tcocoo 

CO 1 :□ 

16* 

c 

H t 


K 

- lOD 

IW2I 11 

K^I ISEE COMO 

CCDCDD 

CC 100 


c 



K 

r 1 CD 

CMP MOD I l t 

K;^I 

CDCCUC 

rcion 

20* 

c 

■ V 


K 

r ion 

iNiunxfi 1 

K-1 “1 

LOCCOC 

CDIOO 

21* 

c 

V 1 


K 

:: 100 

srtjA m 

K-b*I 

COuCDD 

CCiC-0 

2?* 

c 







rDLJCG 

:oiC3 

2 3* 

c 

INPUTS FOR ANY STO 

. COMP. 

K 

= 50 

D 1 NP UT ( I ) 

H = T - 1 

COLCCiD 

no ICO 

24* 

c 

1 1 


K 

=: 50 

UlNfMlTl n 

K-r-1 ISEE INC 

CDuCOD 

ccioo 

2t • 

c 







ocGono 

CC ICG 

2t * 

c 

outputs for any STD. COKP. 

K 

- 50 

OUTP UT n ) 


CCtnOO 

00 ICG 

2T* 

c 

n 6 


H 

r 50 

uouT m 

K-1-1 

Lu u L 3 D 

^0120 

2P* 

c 







CDOCCC 

C0103 

2*7* 

c 

TABLES PER STD. COMP. 

K 

= 9 

T ABLEm 

K-r ISEE COMO 

0DC20D 

CC I J 0 

31* 

c 







OODCOC 

wOlUQ 

31 * 

c 

TABLrS PER model 


K 

- IQO 

TAEiN AMU 1 

K:::! iSEt COMO 

coacfiL 

CL'U'3 . 

32* 

G 







LCDDDD 

CClOO 

33* 

c 

OPTITTAL CONTROLLER 

INPUTS 

n 

“ 50 

OCINPTUI 

Kri rSEE COMO 

cnuccc 

:cio3 

34 * 

c 







L,ccroo 

CClOO 

35* 

c 

OPTIHAL COinPOLLFR 

OUTPUTS 

K 

r 50 

OCOU TPU 1 

K=1 

LO uC C G 

CGiCO 

36* 

c 







LODOGC 

coica 

37* 

c 

OPTIMAL CONTROLLER 

CRITERIA 

H 

= 5.0 

OCCR ITU) 

K::l 

ECGCC D 






COIDO 

36 ♦ 

C 



00 000 c 


CQXQO 

39 ♦ 

C 

OtSietlCD BY J.O.BliRROOGHS D*TE H»T 197B 

000000 

1 BlOl 

4P* 


3 KPL 1 C 1 T onontr precision ia-zi 


C03D00 


GD1D3 

Ml* 


INPLICIT INTEGER «I «a,K ,L .H ,N 1 


□OCOOl 


uni CM 

42* 


DOUBLE PRECISION LOCNO.ICOH 


COCOOl 


DCIICS 

43* 


COHHON/CIO/IRCAp, J UR 1 TE , 1 0 1 A G /C GRiDC R/NO X tf/OV ,WOP 

f DODOl 


CGIOS 

44* 


1 /CT I TLE / 1 1 TLE m /C Sr 0/NSEO , SC 0 ft t *I0 »/ct*b/notab, 

T/lGNftnClOO) 

OOCCOL 


0010.6 

4S* 


GOGINP/OCINPT* 5Q)/C0CGlJT/0iC0U TP<5a>2C0CCRI/0CCUIT<S0l 

CGCDOl 


10-107 

46* 


CCHH06‘/C0C/N0C I N ,NOCOUT ,;NOC, 'JOCKO PtNOGCfirllOC OC* 

IOCAN,1YOC,IUOC 

CGCC31 


00113 

47* 


D lMf,N5laN T COK( fl > , CKHNnS U5 J » SOURGC 16 1 .DlNPU ^ <5 

1 » ,UOUT (511 

COjGDI 


'dn 

4B* 


nlHlNSlGH CKpN IS t 1511 , ChMmoCH 200) , ICHPNI 12 « I 5l ) 


CCuB'Jl 


0 G 1 1 2 

44 • 


E OU 1 VALTNCE f CHpN f S > 1 C.MPNi J 


DOBGO 1 


GGli S 

bCJ* 


DATA NGC OMP/D/f I T A SK/6/ 1 1 POfJC H/0/ 


CDGCOX 


D0113 

51* 

c 

l.SACTlVATf: O.C, PODCrifaNG 


00 GOO 1 


001 1 3 

52* 

e 

RfOLlcr IJO, or COhMANOS prom 21 10 15 


CDGDCl 


CG117 

53* 


DATA PLNK/12K /,1CHMax/15/ 


LOLCG 1 


1G122 

54* 


data rMKNnS/l2||LOCAllOrj .12HINPUIS tl2MfQRT:RA« ST 

DOC0D 1 


:C122 

55* 


lI.PHr.Nn or noo , l?M!^X7XXXX)tXX tl^MHODCL DESC 

• 

COOOOl 


v''C122 

56* 


212HPPINt , 1 2HXXXXXXXXXX *12Ht>DNCH 

« 

CDLODl 


3CI22 

5 7* 


ilPKniAfiNOST 1C .iPHAOn STATES ,l?HAOn VARIAB 

* 

COBCOl 


CD122 

5e* 


4l?IIAtjfi PARAKK ,12lUO0 TABIES bIPMUST STAnO 

/ 

G0OCO1 


00122 

5 9* 

G 

ThACTlVATl 0,C. COMMANDS U6 - 21) 


OOCiOOl 


r-C132 

tz* 

G 

5I2H0.r. INPUT tl2H0-C. tUITPU *1?H0.C. ORDER 

* 

OOGDOl 


VC122 

U 1 ♦ 

G 

6 12U0-C* model ,12N0.r. CPI TE vlZMO.C. AHAL T= 

/ 

CQGOOr 


GG122 

6?*‘ 

c 

LITERAL 'POOL* IQ SATISFY DDLE PrFCSN ASSGNHM 

STMNtS 

CDG03 1 


001 2 4 

61* 


DA T A r OR L T / ’TORT • / , C4 HU MO / * -1 00 

•/ 

CCOGOl 


0 E 1 2 7 

64* 


ini AOrO 


COOCDl 


DO 110 

65 • 


m ADi-5 


COG002 


GC131 

66* 


TWr;l TE = 6 


0DGQ04 


00 1 J2 

67* 


WRl |E(jWRlTr»il ) 


CoaCG6 


CO 134 


11 

FcrfMAinia . ioXb mnput eommanos*/) 


GOGOl 3 


DO 134 

69* 

C “ 

OPEN standard component FILE 


COQOl 3 


GCl 15 

?:* 


DEF INC rue Ifl (201 0 9302 ,U, lie )»7 (201 *128,0,17) 


CDCD13 


CG 135 

71* 

c 

— > OfiTAlN Sin- CGHiPONCNT NAMES FROM' PERMANENT FltC 

CDGOl 3 


noil? 

72* 


CALL FI ARMS ( ia,DCPHAX,l tl?HeMPMTS 


CDGC31 


0D14.3 

73* 


JCPmAX :: DCPhAX 


P0LD37 


OBI Ml 

74* 


CUL rr ATlHS r la^EHPNTS .ICPMAXt 12HGMPNTS 


000045 


CG142 

75* 


00 ?:t U2tICpHAX 


GDC.D53 


00 145 

76* 

20 

CMPNTS(1'-1 UGMPNTS 1 11 


C0GG60 


0 e 1 4 7 

77 * 


lCPr‘AX>lCPMAX-l 


C GO 06 2 


0014 7 

7t* 

G - 

PEAO DATA CARO 


CG0062 


CD15J 

79 * 

100 

C0NTT6UE 


CQOPOt) 


CGI 5 1 

flu* 


REARMREAD, 101, End - 6260, CRR - 6260)IC0H 


C0B066 


DO 154 

61* 

101 

fORHAT(PAlO) 


COOG77 


30155 

82 ♦ 

200 

UPITE (U'PJ7r,201JlC0H 


C0G077 


GDICO 

83* 

201 

FGRMAn/" COMMAND CARD > **8A10) 


COolG7 


CQli63 

84 * 

c -* 

— > DI AGNOSTFC. PRINTS 


0DG107 


0G161 

05* 


IF ( in TAG • £ C - I D > L c? 1 rr < I URI TC , 2 G 5 ) FCHHNDS 1 1 )> I =1 , 

ICKHAXI 

bC01D7 


Q0170 

BL ♦ 

205 

FORMA I(" COMMANDS • /I C (IX, A 10) ) 


COGl 52 


GO 171 

67* 


If ( nil A E - fo - 2lm wR nr 1 1 write , 2C7> mgmpnt n ,i» , 


COG 132 

va 

GC171 

flfl * 


1 ICMFN’TM ,1 > ,JCMPNI (2 ,11 ,1 = 1, ICPMAX) 


COO 152 

o 

CO 

0'C2J2 

69 * 

207 

f c R P A T ( ' STD. C OHP ONI 14 T S * / M X , A 6 , 2X , 201 2 / ) ) 


COCIDX 

CC202 

9;.* 

c - 

--> INiDEX For data card columm 


DDL 1 5 1 

o 

GGJOi 

91* 


1 NDLXr 1 


0CC15 1 

OC2C3 

92* 

c - 

"> L OCA If NEXT PHRA5F 


COG 15 1 

CO 

o 

OJ 

□ 0 204 

43* 

300 

GAL 1. r.Xl HI t TCOM , INOr X ,PHRS > 


one 1 5m 

DCZu5 

44* 

3?0 

IF t PHI S ft;F 0. !!LNK J go TO 1 00 


C.DO J 6i 


ORIGINAL PAGE IS 
Ot' POOR QUALOYi 



BCS 40180-3 









C O ZD 5 

95* 

c -- 

-> 5FARCH COHMAfJfT LIST 



CCDlti 1 

DC 20 7 

96* 


C*LL LCHPHiPMRS,CHK»JDS,lCKH«», UMTaSKI 



CCDI6 3 

OC JD7 

97 ♦ 

c — 

MTAsK = «CU TASK IkDICATOR 



CDC163 

CDZiD 

9M* 


ir twTASK,m .D> r.o rn 4C0 



000172 

GT?10 

9 9« 

c -- 

-> TfST rtri PiRGCi MnoTL Monrs and o.g. inputs 



L0£.17; 

OC^IZ 

ICO* 


GO TO«3rl.,12t..5Cnr, 12<1, 125.32s ■ 32 S,32S.125«321>( 



COO 1 74 

car 12 

101* 


1 5100,52 DC, P3CO|S4UD,325JtTTASrt 



LC0174 

CC2I 2 

1G2 • 

c 

r^AcnvArc pcqccssing 



C0«174 

Of,. 12 

11:3* 

c 

1 tI00,b2Cr ,5 ICO.S'IDT, 125, 70C3 ,7000,7000,7 030,7000. 



CDCl 74 

OC212 

lOM * 

c 

r 7G0u I . J 1 f SK 



C0C174 

DC 21 2 

i:*i* 

c -- 

-> SrPARMr STANHARn COMPONGNT nAMT FROH specific COMPONtNT NAH 


CDCi74 

Dc;iJ. 

1 06* 

325 

COHP = f i f K 



f 0022 1 

cD:m 

\01* 


CALL SIPPOV TPlIRS, ] ,2,Cf)l<P,l ) 



LCOr22 

0 0 2 l M 

IChn 

c -- 

-> sfAncti coHpounn namc list 



C 0 L ? 2 2 

ODZ15 

109* 


'no 3 26 If- OMP = 1,1 CP MAX 



CCC237 

0 r : 2 j 

n c* 


iriKD^^Slk (cHPMTSI T COMP ) , 1 , 2 ,C 0«P * 1 1 *60. D J GO TO 328 



CDC237 

□ rzzz 

JIM 

326 

cc6 7n.'ur 



CCL2S S 

DC22M 

112* 


irupp^s 



CCC255 

cc:s5 

113* 


CC to IZ2 



C3325C 

OC?Zb 

im* 

228 

IF UVAlK.fO .J 1 GO TO 1200 



rnczfcc 

QC2J5D 

1 


on TO 2Jt^a 



LCG262 

0 0211 

116* 

3 30 

WP ML nWR 1 Tf , 335 ICOHP 



000264 

OCZJiJ 

1I7» 

335 

rCRMAK/SX.lMH ♦** UARKlWG • C*N"T lOCNTIFY ,«10**I1S 

A STANDAR 


000271 

DC23M 

n fc* 


in CDMPONLP;T . ■ 1 



rac27i 

OC23b 

1 1 7* 


IFM rAi.K-E0-2>C0 TO 300 



C00271 

C0237 

I2f * 


J lASKrt 



C0C71H 

0 D 1; ^ 0 

123 < 


Nf Vc::.! 



C0C276 

QOZm 

12 a* 


r-O TO 303 



C0D277 

0 D 2 >» 1 

12 2* 

c -- 

-> f.TM COHHAND JOCNTiriEO 



rOC277 

0C2M2 


‘JDO 

L TAf azITASK 



100?01 

GC243 

12 M 


I IASK'NTaSK 



CDG302 

D C 2 M 

126* 


ir IL 1AS« .CO .3 JWPITE (9 ,401 > 



C00304 

CC7H1 

127* 

ttOl 

rOUMfl M OR T * 1 



00611 4 

DC2M 7 

I2f ♦ 

C — 

FTSTS FOR UFJFIHTSFfETO BUSINESS 



000314 

CC2fi3 

127* 


JM L TASK .ro .1 .OR .1 TASK .ro.2 J GO ID 410 



L0C3] 4 

GO 2b 3 

1 J?* 

C 

•> FRAMCir TO NFW TASK 

fej tc 


C0U2 14 

CD252 

}M* 

420 

GO TO M roc, 2DD0 ,5 0 Q , 4 ODC , 4 ODD ,520,6000, TOO ,5 900 • 2 400i 

Q 


CC C 3 3 1 

CD252 

332* 


I 3CC, AGO, 3 on, 300,6 300 ),I task 



CCC.331 

CC2b2 

J33* 

C 

IMACTIVATC 0* COPROCESSING 



C0U33 1 

GC2S2 

I3q* 

c 

1 30 0, i;, r, 3 OP, 30 C,b 300, 303, 300, TOO, 3 DO, 3 CO, 

to C 


nocrn 

CC2b2 

13 b* 

c 

2 7irr.>,iiJ5K 

O Hr, 


G0D331 

QC2£3 

136* 

MG 

IF (1 TASK .CQ . 2 ) GO TO 300 



0C02S5 

DD255 

337* 


GO TO icro 

c 


C0C3S7 

Z2ZIS 

ire* 

G = = 

z= = .z__z:: = rz-.z::zz FORTRAN STATCMCNTS IT*SK 3 



C00357 

OZkbb 

137* 

500 

NOCGHPrNOCn'U^*! 



G0D161 

ZC^bb 

MO* 

C -- 

Ann COMP, NO. TO compoaieht scouence list 



C0D36 1 

oczbj 

Ml * 


nse omsc Q* 1 



CQ0363 

0Z2bQ 

M 2* 


CAH PUTCOtMNSFO, SCQA ,NOCOHPJ 



C0C366 

DCill 

M 5* 


CPProfM N6C0KP) zrORL T 



L00373 

CC?62 

M4* 


GO TO JHu 



CG0377 

CQ262 

1 4G* 

C zr 

r--::::r:zic=-r_z= MOOCL OCSCftlPTlON IT*SK = 6 



DDUT77 

00263 

146* 

520 

NEWCrf? 



C00401 

:0264 

147* 


NCV=U 



CDC40 1 

CC2t>5 

MP • 


NOX =G 



CDCMDZ 

Q'J2tb 

1 i|9t 


Nrp = o 



COC4C.3 

0C267 

isr* 


NC COMP^O 



L0C404 

DG270 

151* 


N5LC“r 



CC64DS 


BCS 40180-3 



Q0271 

152* 


WCTAH'C 

COOtOB 

C0372 

15 3* 


Noc iri-0 

CO 04 07 

00273 

154* 


NOCOUT=0 

COCMD 

OC274. 

155* 


«oc = -i 

CDC41 1 

QC27S 

155* 


^rnCho^--l 

00 C4 1 3 

0C276 

157* 


N OCGP=G 

cac4 1 4 

Q0277 

1 S fJ ♦ 


L0C0C--1 

CCC41S 

roijo 

109* 


I nc fin:rD 

CQC416 

ci c : 3 1 

loo* 


Txacrl 

CQL'tl 7 

cC3D2 

Jfcl ♦ 


fit wi tin 8 

CCC42 1 

CD2C,J 

162* 


Pfkinn 10 

C0C424 

CC3^4 

163* 


Rruii:n 11 

CO 54 2 7 

CO 304 

1.64 ♦ 

C 

> lOAO TITLE 

COC427 

00305 

ILL* 


no 53C 3-U7 

!;0C^3b 

GC31 3 

166* 

530 

TITtL fl irpLNK 

rOC435 

CC312 

167* 


iri nD[ X» 1 

C0u4 3 7 

CC3J J 

ICB ♦ 


J-fiC-IMJr X 

L0C44 2 

00314 

169* 


C f LL STk.HOV (ICOM, I , J, TITLE *11 

CO 04 4 5 

CC3i5 

17C* 


00 TO ICO 

C0C454 

00315 

171 • 

C 

> JfnrlATC NEW COHPONENT 

LOZ'iSU 

0C315 

17 2* 

C - — 

> OCT COUPONENT LOCATION NUMBER 

L0C454 

.0315 

173* 

C =rr 


LCLM54 

OCil£> 

J7*t* 

ICOO 

CALL NX TP»I n COM * INDEX ,LOCNOl 

CD&iiSi) 

00317 

175* 


CALL nc aocNo,s 11 CO 


CC320 

1 7 < * 


GO 70 300 

CO Cm 6 6 

OC32 1 

177* 

llDG 

uni u «i wRi re , 1 ic V ILOCNO 

L0U47G 

CC 324 

176 • 

1 101 

rcOPM f /5 X , Hitt **♦ WAPNINO *A10** IS NOT A VALID LOCATION NO 

LOC4 7 5 

QC 32*4 

179* 


IMTEF-*) 

LUC475 

:JG 32 5 

IBr^* 


CALL 5trjpov(LOCNO*it 1 n*PHr?s*i 1 

C0C475 

a Q 32 b 

Ifll * 


L riCrto^CfiftuMO 

LOuSDH 

00327 . 

1B2* 


GC TO 3 2li 

CC0E06 

CC33D 

163* 

i2Gn 

TFtMWC.ro. t JGO 70 1220 

C0C51 0 

30 332 

1 ti 4 • 


CAL L LC VCCM tPHRSfCHPlirS ttCOHP *LOC NO *CHR MOD • N OCOKP 

Ln:»5i2 

DC. 332 

Ibc* 


1 n UiFMi r t M» ! NPT ,D{1UT ^ ND OIJ T , T DCO MP 1 

0nc51 2 

00333 

J HL ♦ 


DC0P6^-P)IFt'S 

rCL537 

0C33U 

16 7* 


nrwr:: 1 

000531 

C&335 

ia£* 


GO 70 300 

C00533 

0C336 

je9* 

1223 

■ WriTL (lWP]Tr,l22nOCDMNMrPHRS 

CDCj535 

□ 0342 

190* 

1221 

rOTiMATr/5X*26H **• WARNING *** COMPONENT *A10,* DEFINITION UASN" 

0CC54 3 

u0342 

191* 


IT CGMPLf7rO BEFORE STARTING THE DEFIN1T1074 OF COMPONENT *,AIOI 

CDC54 3 

00343 

192* 


I TASKrt 

CQC543 

0 0 344 

19^* 


GO TO 3000 

CCL545 

00 344 

19 4* 

C = 

rz=:==m-rrr=._z_ OIACNOSTIC CONTROL ITASK = 10 

CCC,54b 

0C345 

19s* 

140D 

CALL NXTPttt TCOH»INOrX,P|tRS 1 

L0C547 

00345 

19b* 

C 

emCH FOR NUMflMC IPUT, SKIP INPUT IF NOT NUMERIC 

C0C547 

OC34 6 

IV 7* 


CALL RC tPHRStT3nO) 

L0Q55 3 

0C34t . 

196* 

c 

COLVERT TO INTCGEP 

000553 

CC347 

199* 


CALL ^Ct)GU2H'PltR5»PHRSl 

LCL.557 

20350 

2jC* 


I ni AtHpHRS 

L00563 

GO 351 

20 1 * 


GC TO 30C 

3DC57 1 

00351 

2D2* 

c = — 


CPuST 1 

00 35 1. 

203* 

c - — 

It SI TO *SSURF THAT COnP. HAS BCEN lOENTinCD. 

CD0S71 

□ 0352 

?G'J* 

2DD0 

IfU TASK .to .OJCiO TO 3C0 

LCa573 

CG352 

205* 

C --- 

•5 A:)fl IMPUIS 10 COHPOHCMI 

000573 

00354 

2T6* 


CALL It.COPUCOH , PHft S , I f.'CC X ,N0 INPT ,0 1 NPU T ,NOOOT , DOUT, 

C3uS75 

OC354 

207* 


I nCOP.f.H,tHPrtOD,NOCOPP ,ICOPP) 

000575 

00355 

2fJ“* 


fiO TO 37C' 

i) L C 1 2 
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nozss 

239* 

C 

> STORC IMPWT LIST FOf? COMPOHCNT 


C0D612 

COISf. 

7 J C* 

3000 

IM TOrOPf.GC, 1 .AMO. I DCOHP.tr .Noro MP. UNO. NOIN PT. 6 T. 01 

OOQLl 4 

(JCJSb 

?n * 


I CALL kflJThSf 7tPniPUT f^nitJPT* inCQUPl 


CCLt \ 4 

JPi60 

?i 2« 


Nrufrc 


C0C64 5 

f^Ci6i 

2134 


GO TO 4?C 


CCC64 6 

CC ZLl 

2 J 4 ♦ 

c === 


I TASK t: 4 ,5 

0DG646 

UC361 

21S4 

c 

> fPPH MODCL SUPI70UTJWCS 


GCC64 6 

LCiC2 

2U>* . 

400C 

CALL rijfJMDo fCPpHon ,i?aropp,DouT 1 


CD case 

C C 3 1 3 

217 4 


GO T0<330, lOO.iCO, JDiJ,G?Uf’.3ua,60aD,IDO,59aO ,HOD, 

COC654 

::g363 

2i U4 


1 3DC,?Cfl ,3Cn,3GCt3COJfnA5K 


CCC654 

GCi63 

H7* 

G 

> V4J1C rojnft^N oL'To bouncE: riLC 


cactS4 

CCit-M 

22;:* 

soon 

L*rj 1 f 19 , J 01 ncop 


t- Cl c 7 0 1 

CCZLl 

?7T * 


Go 10 IPG 


GDC 71 D 

:Oi£>7 

2224 

C = — 

= = rr r rrr:: SlflrLS IIASK - 11 

COLtlU 

■j 

2234 

c 

> AtJfl S 1 A T£ S If 0 HOOE L 


1.P67 J D 


224 4 

5100 

urj n fa i 1 c I rpirps 


C 1/ C 7 1 2 

GG373 

72 \* 


Mpy "fjox * J 


LCC 71 7 

0 P J 7 H 

7?( ^ 


GO TO 35^1 


CCL172 

{ L J 7 J# 

22 /4 

C -z- 


12 

C7Z722 

CCS7H 

23^4 

c 

> A9D VARTAE^LGS to HOOLL 


r3C722 

r.C37S 

2204 

s2on 

UP! It t) 1 1 lOJ >PM«S 


oau?24 

CCUGD 

71Z* 


T;OV“Tff>V ♦ ] 


:,rcTi i 

GCjjGI 

711* 


fiO iO 3 30 


CO C 7 3 4 

ZCi\Ol 

712* 

C r=z 

= -.= =rr^rr = r &!nr PAPAUfTEftS HASH ’ 

13 

COCISII 

:.c>(ai 

233 4 

c - — 

> APR PAPArtOTfOS TO MODGL 


UOC734 


?34 4 

5 3 DO 

uri Tf UO t 10 1 TPHR5 


COt'7 3 6 

fCM05 

23S* 


nop^iiopo 


r.oci'i j 

rP4:j6 

2 3t>* 


GO 10 300 


cri,7'i6 

CZk3h 

2JT* 

C --r 

-_-=:rr.rrr:rrr7 r:: A D'n TaPLCS ITASK = 14 


CG6746 

K □ u b 

237 4 

G 

> Afjfi 7AL11.E5 TO tiOOCL 


ecu 74 6 

{C^nu 

2374 

C 

> CC I T/IBLC OthCNSION IN NEXT PHBXSC 


CDG746 

LC^31 

2404 

540n 

CALL M;UPH(TCOH,T»/Or5<,lA8r)I7fl 


r D 0 7 f. a 

L'C H3 7 

24 1 4 

G 

> HST TO ASSIJRr THAT TABtf OIMEMSIOM 

IS NUMERIC 

CUC75C 

itcmo 

24 2 4 


CALL L‘LIMLRC rTAtirn4,i6Ar?r ) 


LCC754 

cvmo 

24 3 4 

c 

> CONWERl TAIiLC OT«r»)5ION TO INTEGER 


rOC754 

CCKI 1 

24 4 4 


CALL Rcnr?ua f lAHDIP .TAKIVTI) 


60Q76C 

(. 0 m ? 

24^.4 


r=T Aani 


CDu7i*4 

rc4i3 

24 b 4 


CALL f UTroO tS ,P||RS ,1 ) 


CaU772 


24 7 4 


^OT AffrKO LAP * 1 


COC777 

lCiUS 

24 a* 


T AQN A^t N'O T A H > "PHRS 


CD1P02 

CC^tb 

24 7* 


BO 70 330 


cd nos 

CCH17 

7tZ» 

5420 

URlir riWf;iTr»54?l iPfJRStTAflDIM 


ecu 07 

COU2i 

2^.1 4 

5421 

FDnPAH/5>f ,29Jt 444 UAR«7NG 4** TAPLET NAHC 

pA7t 

cc un 5 

ooHZz 

7b2* 


1' Hiibl v.l rOLLOV^EO py a ffUttCRiC DlUrNSlOM 

RATHER THAM •*A7l 

CO 1 C 1 5 

CC42H 

2534 


pMRSr'TA'^OlM 


cn 101 5 

U04?5 

254 4 


GO TO 32C 


LC 1 0 1 7 

C0Jt25 

2554 

C 

■> 5f 1 ITTOJCATOR to punch SOUfiCC DECKS 


COIOI 7 

PC 425 

2554 

C zr= 

::;r==::Tixrr:- PUNCH ITASK =9 


con? 17 


25 7 4 

5900 

TPUtJCMz 1 


CD1C2 1 

OC426 

2584 

C '-r 



LD 1 D2 1 

CC4?b 

2594 

C 

> HRA\4 SCHCHaTTC nlARRAH, 


C61D? 1 

3C427 

2614 

6000 

CALL ^Clir PA fCpPNOO jNOCOKPtGINPtlT.DOUTl 


0D1C23 

CC4?7 

261 4 

c 

> PpfNT INPUT REOinrTPtNTS LIST 


CC 1023 

DG43D 

2634 


irjn ni.r 12 


LQIC 3 O 

QC431 

26 3* 


RFUJNn 12 


emn i 3 

C f 4 3 2 

26 44 


upi Tc n wp I rr, 61 6 1 > 


Ce U!3t 

DC434 

265 4 

6161 

r ORHA T M NM 


C0ir44 



BCS 40180-3 


ao«t3s 

26 6 ♦ 

6170 

CONTINUE 

DC 10*1 4 

CO 4 36 

267* 


RrAnil2,l0l.CND:6200tCRR = 6260IS0URCf: 

C01C44 

CCNm 

26 0* 

61BC 

UR nx u un I IX , 6 1 e 1 » sourcc 

GDIOSS 


269* 

6101 

roHl-ATI lX*7Aro. A 2 r 

CD 1 C6 5 

ZOHMS 

27C* 


50 TG 6170 

C0U65 

cCMMS 

2T1* 

C ^ 

> ptiticH source: filg 

001C66 

cciuqt 

212 * 

62C0 

IF tlPltNCM*NE.llGO TO 100 

C01C67 

-0**60 

273* 


fE?U rTL£ 9 

GC1G71 

CC^Sl 

274 * 


ncuiiio 9 

601074 

:^CH‘2 

27S* 

6Z2P 

‘com iN'UE 

oonoQ 

OC'i5 3 

276* 


RfAn 19,101 ,rN0 = 10a,rRR:6260IS0URCE 

Lni ICC 

C045 6 

277* 

6250 

WRITE (3,lbl ISOURCr 

C3U 11 

CC4L1 

27 f* 


GG 10 6220 

GO 11 2 1 

^C^62 

279 • 

626 r: 

eONTir.’ue 

C01123 

OCMh 3 

281* 


STOP 

cnu23 

COMbS 

?ei* 

C 

-.:.===_rr=s-r== LIST STANDARD COhPONCNTs ITASK S 15 

CDI123 

LCM6H 

28 /♦ 

6300 

etL L L I S T SC f I CPMA X , CKPNTS ,OIN'PUT ,OOUT 1 

CDl IZS 

IC^bS 

28 3* 


60 10 300 

DC 1 1 3 2 

ZZ 46S 

204* 

C 

TNACTIVAT-C O.e. PROCESSING 

rnmz 

CO 46 5 

205* 

c =-- 

==r=r=r=,.r:rrr- o.C, COMMANDS ITASM - 16*17.18*19,20.22 

CCl 132 

r:C4 6S 

2fi6* 

c — 

> I'.'itRPftflE OPTIMAL CONTROlLtR INPUTS 

on M 3 2 

CG4b5 

2&7* 

C7000 

CALL OCINTnmASK.PIlKSl 

coil 22 

CON 65 

280* 

c 

60 TO 3C0 

D01132 

GC465 

ZS 9 • 

e 

* = rrr-=::-.r===r= O.C. ANALYSIS ONLY ITASH =21 

001132 

OD4 65 

293* 

c — 

> sf.T analysis only TLAG 

CDl 132 

0GH-6S 

291* 

GTica 

J0CAN3 1 

CG1132 

C0 4C.5 

292 • 

c 

GO TO 30G 

CO 11 32 

DC 466 

293* 


LNO a EASY ««***««#4******** *********** 

CO 1 J 35 




<r> 

t/i 


SUBROUTINE tNOCON 


CNTRT POINT 000 1&6 




o 



>-* 



G 3 

O 

STOP A or 

usrq CODE Ml DDD 215 ; 

1 

CO 

COMMON 

BLOCKS 


DAT* 10 > POOCSO; BLANiK C 0 NMQNf 2 t OGGGCO 


0 CG 5 CIO 000003 

OCGM GOPOER 000003 


tXTtPNAt RTFERtNCIIS IRLOCK* NAHEV 


on 05 

GET COO 

0005 

FCADMS 

D 0 OT 

OX TT 

0010 

NAPGEH 

QGU 

LIM 

aoi? 

NWPUT 

0313 

M 02 % 

3 0 m 

NIPIS 

0015 

NtnRjT 


STOflAOr ASSlBNHtNT tBlOCK , TYPE, REtATIVt LOCATION, NAWri 


OCQ! 

CXCG 57 

10 DL 

0003 


0000 lA 

lOlF 

3000 


DODO 13 

11 F 

0001 


000102 

not 

0001 


CO CU 2 J 

122 G 

0301 

GL 012 S 

iP 5 t; 

CDOl 


000140 

154 C 

a 000 


DDCD 21 

201 F 

0000 


300022 

2 Q 5 F 

OCDG 

0 

CGOOOA 

BLNK 

GOOD 

0 OCOCIO 

GNAR 

orco 

D 

aooooQ 

COMMA 

0003 

T 

03 COO 7 

J 

0 P 03 

I 

0 DDC 02 

IDIAG 

ECDO 


DC CO 3 7 

INJP 

0 003 

0 tCG 3 O 

JPEAb 

G 0 CJ 3 

I 

003031 

ivRirr 

GCOO 

1 

000006 

N INPUT 

OGOO 

r 

: 0 O 3 G 12 

NO 

CDC 4 

1 

C 0 CD 02 

NOP 

0 QC 4 

C-OCCOl 

NOV 

DCDq 


DQCOOO 

wox 

0000 

n 

00 DO 0 2 

RPAR 










301DD 

1* 

CtNDCOH 


GO ODD G 

33131 

2* 


SUB R0U1INC 

ENDCOMI A INPUT, COMMA M t SOURCE, ISOU*? ,NOCOMP , NSGO 1 

rOCGOG 

roici 

3« 

C 

VERSION 2. 

REVISED PEC 15 1975 

CDGOOD 

to 101 

4* 

e 

PUpipOSir TO 

COMPLETE A eOHPONENT OESCRIPTIDN IN THE ECS MODEL. 

CDGODG 

LGlui 

5^ 

c 

CALL SrOUENCE 

AINPUT - LIST OF INPUT OUANTITT NAMES 

roooto 

IDlOl 

t* 

G 


COHNAM - SPECIFIC COMPONENT NAME 

E0G33C 

LE 101 

7* 

G 


SOURCE - eUFFER ARRAY OF SOURCE CODE 

lCu:o3 

roi3i 

fl ♦ 

C 


3 SOUR “ INDEX TO NfXT rHAfiAGTEfi IN SOURCC BUFFER 

croooc 

DG 13 1 

9* 

c 


nocomp - MODEL COKPOfM’NT NO. 

CT-ULOO 

GO 13 1 

ICA 

G 


NS 10 - MODEL component SEQUENCE NO. 

ccucot 

CO 10 5 

!!♦ 



IMPLICIT noUBlE PRECISION IA-21 

ceccDc 

GD134 

12 ♦ 



IIIPIICIT TNUDER ( I , J , K ,iL , H , N 1 

LOLOuG 

CO 105 

IZ* 


OIHENSION 

ATNPUT f 1 ),SOllRCrtO> 

LCC330 

-3 136 



C OM M OKVC I 0/ T R r A [} t T UR n t , 1 0 1 AG 

C C L C C u 

0CJ37 

15 ♦ 


common /CORHE P/NOX ,N0V tNOP 

DPLCUO 

00110 

U* 


PATA rOMMA/121J» /,RPAR/12M) 

CDU03C 

r/cii 3 

!?♦ 


DATA ‘aNK/l?it 

CrCGDC 

00115 

!«♦ 


CALL rCTCOD ( 5 , C OM M A H , Kl NPU U 

oncsrjc 



BCS 40180-3 





cons 

IV* 

c -- 

It ST FOR COMPONCNTS VTTM NO INPUTS 

000000 

00116 

2C* 


IFf NJWPUT •Lr.OlCO TO MO 

ODOCO'V 

00 120 

21* 


GALL Pf ftDHSC7,ATNPU7 .NINPUT, NOCOMP) 

00 030 7 

CC120 

??• 

C 

-> SCAN TMPUTS 

cauaa? 

r^G J2l 

23* 


DO 2 DO 1-UNINPUT 

GO DO 1 5 

CCi2l 

2M* 

c *- 

-> TCST HTM CXARACTCR TO DLTCRmInE IF INPUT SOURGt HAS BEEN SAT 

uauDi s 

CO 12*< 

25* 


CALL CETl M INPUT n > rCMAR) 

L0GQ2 3 

cans 

26 • 


IrtCMAf^.^;r.^^^■K 1 no to lao 

0DUD31 

C0 12S 

2 7* 

e — 

-> NOl STAlsrirO - TYPE INPUT AS A PARAMETER 

DCCa3 1 

0G12S 

2ft* 

c — 

-5 rORP UNIOIIE tJAMf 6Y AODIUG COMPONENT NAME 

CaOQ3 1 

t.G 127 

2^* 


CALL NAPiiCW UTNPUT (T J ,C0MNAH. ATNPUT Cl 1 ) 

0CljO3M 

C0127 

3P* 

c — 

IflGFitASE: parameter COUNTER 

C0LC3M 

JC 1 3D 

31* 


NOP^NOPM 

LOGDKS 

CC13D 

32* 

c -- 

-> ALIO NAHC TO PARAMETER NAME LIST 

DOGOMS 

00 131 

33* 


WPl TE I 1C , 1 i )A INPUT Ml 

opens Q 

oDim 

3M • 

11 

FORMAT t Ale) 

COLDS 7 

ClUU 

3 5* 

C 

-> ADO INPUT TO COMPONENT GA6L SiEOUENCE 

000057 

GC 1 35 

3 t* 

100 

CALL LlNE tCtSOURGr , 1 S OUR rCOMM A , 1 i 1 2 t 

COOC57 

CO 13b 

37* 


GALL L 1 NC T a , S OUR C E ► 1 S 0 UR t A INPUT f I J . 6 , 1 2 ) 

4.CGP66 

GUI 37 

3B* 

20 0 

continue 

0DL1Q2 

C0137 

19* 

c 

-> COMPLETE CALL SEQUENCE UTTM ) 

OCC102 

C0141 

<tO • 

110 

CALL LINE (□, SOURCE , 1 EOUP^R^PAR * 1,1 2 ) 

O0C1O2 

C0l^^2 

m • 


If C lUlAf..6E .SOIL'RT TEXTUPITEtI ni ) SOURCE 

:nci 1 1 

r.Qtsi 

2 • 

IQl 

rOAPAlM ENneOM'SOURGE */MX,6A10) ) 

CQCl 30 

LOISI 

*13* 

c -- 

-> WRITE LINE ON SOJPGE fllE 

CCD13C 

U01S2 

M<4 * 


WRI IE (12,201 ISOURCt 

CCL 1 3C 

«.GlbD 

HS* 

20) 

f OK H A T i £ A 1 □ 1 

OCCIH 3 

C C 1 b 0 

Mb* 

e -- 

-> GENERATE STATEMCNT NUnaER 

COO 1^*3 

COibi 

M7* 


NO=NSrU*9COO 

COOH 3 

00161 

M£* 

c -- 

-> WRITE CONTINUE STAIEMEMT ON SOURCE FILE 

C0DH3 

LCJ 162 

M9« 


URI T£ (12 r205lN0 

CO Cl** 6 

-0165 

SG* 

20 S 

f OR If A 1 ( 1 )( • m , IX 4 •CONTINUE * ) 

GCDlOti 

CC166 

51* 


RFIURN 

0C0154 

00167 

52* 



0DC21 N 



BCS 40180-3 



SUBROVTINC IHDnOO tNTRY POINT 001306 


storage: used com fi t C013Z6; DATAfO) 0G17?3; BLANK C0NM0NC2> 000000 

COMMON BLOCKS 

DOG! GORDER G0QCa3 
OOG1< C7I7LE D0QiQ16 
00 Gs Gsrg oaoooi 
DG06 CTAB COOGD3 

one? GGc OGonio 

0010 CIO COOCD3 


EXTERNAL RE TERENCES BLOCK. NiAMEI 


on 1 1 

GO 12 
0 013 
OQl^ 
GDIS 
0016 
CO 17 
0C20 
00 21 
GO 2 2 
Q023 
DG2M 
QC2S 
□ 0 2 6 
DG27 
GO 30 
□ 031 
0 0 32 
0033 
00 3H 
0C3S 
CO 3 6 


BE ApKS 
GI TCQiD 
CMLCP 
I NPGOM 
KOmSTR 
COMG.EN 
lAPClN 
N6C0D1 
LJ NE 
7 APCAiL 
c r. KF 0 u 
r^AMARY 
7 AKiAT 
sttkov 

NRELl 

Nwrot 
NIC I t 
N I 0 i t 
NR [‘lit 
Hi n3t 
Nkf f t 
rjCRRTS 


storage assignment f block, type, relative location, NAMEI 


GO 07 

CCG25Q 

lOSL 

GOOD 

0007 60. 

lur 

DO 01 

000267 

12GL 

GD:G| 

GCGG37 

1R2G 

GOC.l 

D0C0'^5 

I5DG 

oooo 

a0077H 

IS IT 

□ OGO 

GC061 7 

31 F 

0001 

OGQM 10 

3116 

0001 

GOOR'6^* 

331 G 

OPGl 

QCC346 

ti'mi 

OGCD 

DD13G3 


ODOG 

001033 

<*1 IF 

ooco 

CQIC42 

501F 

DODO 

001 OH 3 

5 1 IF 

□ 001 

DOGS 3 <4 

515L 

UCOl 

CC0123 

60L 

ODD 1 

000660 

6CCL 

□ OQO 

001054 

6:0 IF 

cnoi 

rcotii 

7nOL 

GCGO 

001063 

7oir 

GOOD 

non 35 

71 ir 

□ Pol 

GCr677 

mtiL 

OCi'Q 

nci227 

7M I F 

D OQ 1 

r.OG712 

7flCL 

GGQl 

ccn7?s 

enoL 

OfiOQ. 

000657 

8 IT 

coon 

001267 

821 F 

ocaa 

CCl 351 

Luir 

00 Cl 

naoTt.? 

85 Cl 

3DDQ 

0Q1355 

85 ir 


OQDO C00767 
OCOO 0G0612 
GGOl Q 00 323 
DOOl 0Q0652 
OGGI a01D2S 
GCOQ nOC656 
□CGQ GD122G 
oeoQ ael?^^7 
OCtID 0G13J I 
OCDl G0&772 


121 F 

CCGl 

21F 

OOCl 

350L 

OGDl 

41 7G 

CO Cl 

517G 

C GDI 

blf 

CGGl 

71 9 r 

OCCl 

7£1 IF 

coci 

8 31F 

QGCO 

66GL 

eocD 


raD306 lAOL 
CO OR 00 302G 
COGS 2b 3S1G 
C00372 H201 
CG1203 57SC 
CC0605 t30t 
COGIST 7ML 
LCGI67 fcCL 
CC1330 E2 3T 
L01hC 4 66jr 


ood;i 


Q0!Gi*0 

86M L 

0000 


OOlUitS 

a6sr 

0 003 


001559 

«6 7r 

QGOQ 


OOiSTS 

869r 

ocoo 


001 60S 

8 RIF 

CODi 


HQ1173 

9 001 

cnco 


00162$ 

9C1F 

OODG 


3006 60 

91F 

DOUO 


001626 

9UF 

0001 


0Q12S2 

92dL 

3.nGCl 


CClfc?7 

92 1 r 

GOOQ 


0307$2 

9 3/ 

OQGl 


G01292 

9 6 OL 

OGDO 


001632 

96 IF 

0031 


GG1270 

999L 

JOOG 

n 

PC 760.3 

AN'A«£ 

oroo 

n 

does 30 

8LH.K 

eoon 

D 

0GC5 36 

GOiHKA 

QCGG 

D 

a.3C6D5 

CO HP 

GC13 

D 

C0C6G 1 

COHP$ 


n 

CCrDb4 6 

G Y € L £ S 

GDfO 

Q 

noobSQ 

Dl I NFS 

□ COD 

n 

00C52M 

tes 

0COO 

f) 

DOG $76 

rofli T 

CCLO 

0 

G0D62C 

CT 

DHu^l 

0 

CL or 3U 

nrp 

or.co 

D 

OGC532 

KCX 

jonn 

0 

□ 00$ 92 

UP 

GCCO 

n 

003590 

HT 

CCCG 

1 

CuG66 6 

I 

uC-CG 

I 

or-rsb7 

iro^p 

GfMD 

3 

ooi:oo2 

j n I 

G 00:0 


001 6.77 

J N JPl 

OCOT 


D0DDO6 

1 0 CAN 

OCIO 


nnero 

IPFAO 

QVCO 

1 

u.E.0b6S 

ISM 

DOCC 

J 

cocbca 

I SOiUO 

0 Goo 

I 

DljG562 

IVR 

OCDO 

n 

aoGcoc 

IVR SET 

OGIC 

1 

GjODC 1 

rvc^iT c 

00C7 


coaco7 

ixotc 

cooo 

I 

000663 

IXSOlfR 

0 003 

I 

0D3566 

J 

0103 

I 

000671 

K 

0016 

I 

COGLOa 

KOMSTP 

uDC7 


CtiOQGb 

1 . nciGo c 

acoc 

I 

0D057Z 

MAX'7 

onOQ 

1 

000576 

HA XTP 

OOOQ 

1 

COOS 73 

H 

ooco 

I 

GGnS69 

NET 

DOill 


GLn03.2 

HOG 

0::Q7 


ncocc^ 

HOCCR 

0 00 7 


CGriGOa 

NGCIH 

0007 


D;OiOd02 

HOCHOD 

0DC7 


conoDi 

HOC our 

cnoi 

I 

oceG.a-2 

HOP 

OOGC 

I 

QC0576 

HOPP 

DGQ6 

1 

OuDcoa 

HO TAB 

0000 

I 

Q0C677 

HOT/BP 

CCG3 

1 

CUGQCl 

HOV 


I 

aGr57^* 

HO VP 

□ G03 

1 

no CO DO 

^NOX 

0 0 00 

1 

000661 

fJ.O XP 

ores 

1 

OOCCCJO 

NSEQ 

OCOO 

I 

cjoEoa 

HUN I T 

onciu 

I 

LCP567 

NO 

DCOG 

1 

noosiQ 

N1 

DOOC 

D 

PC 05 59 

prNAMf: 

0100 

n 

CGC5S2 

RFSTT 

OOC0 

D 

G0059V 

PPAR 

DD0S 

p 

:CPL73 

sf a A 

DC at 

Q 

CQCQDl 

T AH HAM 


D 

nrjccoo 

U Ttc 

OOOQ 

0 

0 0.0500 

X50UR 







CG1D3 

1* 

crNOMOO 

CDODOS 


. reioi 

?♦ 


SUD ROUT I RE CHOH 00 f CMP POO ,N OGCHP t OUT PUT ) 

C00C05 


30101 

3v 

G 

VERSION 3. RCVIStO JUNT 7 1976 

GO OP OS 


r. c 1 0 1 

4 ♦ 

c 

PURPOSE CQHPLETC TME DENERATlOH 0/ tCS HOOrc SUPROUTTHCS ECHO DAT 

L, 00 L' J 5 


LOiOl 


c 

CALC sroUENCE CMPHGD - ARRAY GONTAINTNG HAKES OF MODEL COMPS* 

OGoeos 


tulOl 

6* 

c 

NOCOHP - GOMPONGHT COUNTER 

CDiioas 


CL 1:G1 

7* 

c 

OUTPUT - INPUT-OUTPUT -TABLE NAME ARRAY WORK SPACE 

rocoos 


I.DICI 

0 ♦ 

c 

D'ESlGHEn OV J.n*RllRR0UCkl5 DATE JULY 1974 

CODOCS 


00 1 J3 



IPP'LICIT DOlipLE PRECISION lA-21 

CCCCCS 


ccion 

1^ 4 


IMPLICIT INTEGER M . J , H , L ,iH .« ) 

G3C33S 


'^CS55 

lit 


OOUPLE PRrej-STON iVRSCT 

coorjos 


re 10 6 



C OM M 0 N / C OP 0 r R /NO X , NO V , NO P / C T IT L E / T 1 1 L C T 7 J /C SC 0 /N 5 f 0 * $ £ 0 A 1 11 

LOG005 


f CM6 

13^ 


1 /C T An/HCn AB ,T A PHA MT 1 V/COC/NOCI N tNOGOUT tHOG . NOGHO D >N OCCR ytOGCOCt 

0CC005 


liDlD6 

14# 


2 IGGANtTXdC 

GOGG05 


.0137 

JO* 


COMMOLVCTO/IRrAiPiTWRI Tf ,1 pJ:AD 

QGuOCJS 


. wC llO 

16* 


DIMENSION I VRSCTil GOJ pXSOURCB ) ,G T (21 .CHPHCOC 1 1 « OUTPUT ( 11 

0CC0C5 


5C1 11 

17* 


data GO T at /,ECS/J2H£GS / 

CGOGOS 


30111 

la ♦ 

c 

LITERAL •■POOL* TO SAITSFY DBLE PREGSW ASDCUmi STMNTS 

GCLGGB 


OQllit 

19* 


DATA FOPIT/^FORT V^.PLHK/- */ 

OCCCUS 


uG 11 7 

23* 


DATA MCX/12flGX /,MeP/12HCP / 

CDCGC5 


L-G122 

21* 


DATA rGMpA/l?:H, /.HT/12HT / 

G0CCO5 


00125 

Z2* 


DATA HP/12HP / , PP AR / 1 2H I t 1 HDP / 

E0CCC5 


DO 133 

23* 


DATA CYCLE S/'CVCLES • / »0 L I NC S/ • DLl NE S •/, 

eocene 


^3133 

2 *1 ♦ 


1 RFSET/*lvFSf7 

lOCDCS 


0G13M 

20 * 


RrujN'^i 12 

CCC2CS 


DD135 

26* 


RiyiNO 9 

CODOlO 


' Cl 35 

27* 

c 

DEI PERMANENT FILE NAME 

GOLDl C 


0C13 6 

2P* 


CALL Pf ADrS t la/P/MAME ,1 2=Hr>F NA^ME 

C'CLCll 


03137 

29* 


If IIOIAG *ro *2 1J URT Tfl I WRITE ,2 1 1 (CMPHOD tl 1 , NOG OHP) 

000021 

m 

DC 146 

30* 

21 

FORM Alt’ CMPHOD */ I CM X ^ A 10 1 ) 

0OUG4 5 

o 

(yi 

C0ii<6 

31 ♦ 

G 

IM ACTIVATE O.C* PPOCrSSlNG 

CCCC45 


L0J96 

32* 

C 

> COhF^LE TE PPT IH aL rONTROLLFR SPE C2F I GAT ION 

CCCC45 

o 

30 14 6 

31* 

G 

G AL L net NR < NOeOMP ^ C'-pMGD .OiUTPUT » 

03004 S 

>-► 

0014 6 

34* 

C 

irtNOGOMP.LF *3160 10 9r 

CC0P45 

Go 

O 

30146 

35* 

C 

> CHrCK COMPONENT SFflUENCE FOR IMPLICIT COUATIONS 

C0CD45 

t 

CG146 

36* 

C 

CA L L C OK. 0 RR < C HPMiOD , H 0 C 04 P ,RU IP U T > 

rCGG4 5 

w 

GQ1*<6 

37* 

c 

— SCAN MODEL COMPONENTS IN SEQUENCE OF LOCATION STATEMENTS 

CGD04 5 


GO 14 7 

30* 


DO 0 0 1 = 1»NSEQ 

000045 


PAGE IS 

OP Poor qualith 


BGS 40180-3 


noi*»7 

3S* 

C 

— > 0C1 cohpoment no. in location SrOUCNCC 

OOOOAft 

OC152 

4r ♦ 


call GtTCOOn ,SEOA,1COMP» 

'1-CC04 s 

CC15.2 

4 1 • 

C - 

TEST rOR ni9CC7 rORTftAN C0MP0WENT5 

CCCCM5 

CCISJ 

4 2* 


if.(Ci-rrpnnrDHpi,ro.FORL7iGO to 6C 

CCC'155 

■roiss 

43* 


irc T .ro. j lypiTc n 2 » ,3i j 

CCCtbl 


44* 

31 ronHAT<(.)t,Mrtcr'ui.ro.cru5Eci go to i* 

3C037 1 

CD163 

45« 


1 /bX,*3F<CYrLrS.LE.7. 1 miHCS^O.* 

C3C071 

"ulCO 

4 64 


2 /6T ,’I IESTrO*/£.X 1 * IF «nf SE I.5T.C. 1 TtEST=l’ 

COuCT 1 

z:mlCj 

474 


3 /fcX ,*CPU£rrPll5EC*/6X , ♦ICrjTSO ViX ,»lHrL=Q* 

LCC07 I 

. Ci 1 60 

4 84 


^ /* 1 corn iNur ' i 

CCLD71 

1C J60 


c 

INJECT IV^TE O.C- PROCESSING 

ccac7 1 

' C 160 

S C« 

c - 

— > irsr row o.c, ir yes ci^ll occall 

COCO 7 1 

1G160 

51* 

c 

IFtKO^^STR<C‘^PHupnCOMP) ,l,2.HnCtn.E0*0»S0 TO 72 

uOD37 1 

CG16J 

524 

c - 

— > in Matt co^pouini suprcuiine call cencration 

GOL07 1 

CC iOl 

53 4 


call rALLcpicj'pMor> £ ico;iP),ira«p, x sour, i sour, ivrset, output » 

r,nt(C7 1 

CG161 

54* 

c -- 

— > COKPLnE COPPONff^T SlJttROUl INC CALL GENfRATlOtJ 

LDun?! 

£.0 162 

554 


CALL E»rOCOP.IOUTPUT,CF.PMODMCOMF*)*xSOUR,ISOUR ,ICOHP*I 1 

LODI 

CCltJ 

5t * 


GO TO 83 

COD! 2 1 

LO 163 

57 4. 

c - 

— > TRANSrCR OIPCCT FORTRAN FROM FILE 9 TO flLC 12 

CQC121 

C116M 

544 

60 

CPNT lout 

2CC123 

CDlt.5 

5'J4 


RFAn t9,t 1 ., END-30 tGRP-999 1 X SOUR 

GCG12 3 

CO 173 

614 

6l 

rcltMAHPAl03 

oG0134 

J C171 

614 

70 

IFIKO-SIHtXSOUR, J,H.F0RLT,U.E0.0)60 TO 7H 

CDG134 

QC173 

624 


UPTTt n? >61 lj(50un 

uOClMS 

t G 1 7 6 

634 


GO TO 61 

C00155 

CCi76 

6U4 

C 

T.NACTTVAtC o.c, processing 

C00I5S 

00176 

65 4 

C72 

GALL OCCALU CHPrtODtNOGOHP ,1, T VRSE T , OUT PU T ) 

COG155 

QG177 

66 4 


74 If 1 I .FQ . 1 lUFll TE e 12, 31 1 

CO U 1 S 7 

Qciaz 

6 7* 

BO 

comimjE 

CODITG 

06234 

674 

90 

RE g run 9 

LC0170 

0CIL4 

6^4 

C-- 

AOO PARAKETFRS CtCLCS rOLINcS. RESET 

GOOl 7C 

C C 234 

7C4 

C 


DO G 1 7 G 

03205 

714 


WRITE (iOpBl » CYCLES,DLINES,RESET 

C00173 

uQ212 

724 


B1 f ORHAT* A 101 

000233 

0C2i3 

734 


rinr^Nop* 3 

000203 

GG213 

74 4 

C = 


DCLi2D3 

□ 0214 

75 4 


NCXrrMAXOOTOX,n 

C0C236 

CQ215 

764 


l/PI TC »9,9llTlTLE,PrNAOE,NOXP,fr0 5<P 

DGC214 

00223 

774 

91 

rORHAH *DrOR,TS A S S I . t OHO , A S9 0 . E OMO * / 

L0u?3C 

CC223 

7? 4 


.!6X, ‘SlRlROUT JNE C a H 0 (T I KE , T KAX , INOP ) * / *C •/ * *9X * 7 A 1 0 / *0* / 

CDC23D 

0 0223 

7^4 


2'G > THIS SURROUTINC WAS PREPARED BY THE SIhUCST PRECDHPILTR 

LDC230 

C0223 

e:* 


.3v'C»,?5y, 'USING ',ftin,* cDHpor.TrMS* 

C3C23C 

□ C?23 

B » 4 


4/6X t TOKHON/CXDOT/XOOT £ ’ , 14 , * 1 / C 1 N T /I N T < * 1 1 4 , * ) * 

COC23C 

C1223 

824 


5 /6X. 'COH^IOSVCIHPL/IHF'L ,lCfn, I T E ST / COV RLY /D U HI 3 I , CPUSEC • 

COG23G 

OC22 3 

E3* 


6 /6 X , 'COUPON/ COST /CCO t 91 * 1 

CCG23D 

GC224 

84 4 


,TF tUOX.L r . 1 ) GO TO 1C5 

LOG23C 

CC224 

6St 

c - 

— > rORP /CX/ COHPON 

C0023C 

DD326 

864 


WPITC (9,931 

C3D234 

CD220 

e 7* 

93 

FORHAH^C ---> STATE VARlAniES*} 

GDG24 1 

002J1 

684 


CALL COHGrNLNOX,HCX,8 ,91 

cnc24 1 

GC232 

694 

IQS 

IF nrOV-L I - 1 1 GO TO 1 20 

CrjC25G 

□ C2 32 

914 

C - 

-o r orn /cv/ c<ikpcm 

C0C2S0 

OCI34 

914 


wpi TC (9 , n n 

CQC253 

C02J6 

924 

1 u 

roppATiT — > y/.uiftpLES*) 

GC0260 

□ C227 

93* 


CALL r&PGLN(MOV,ZHCV, 1 1,9> 

C0G26G 

CC240 

94 4 

120 

JFltiOP.LT . M GO ID 140 

G0J267 

0C2M0 

95* 

c - 

--> FORM /CP/ COHHCN 

CD0267 


ORIGINAL PAGK th 
OF POOR QUALITY 


BGS 4018Q-3 



0G242 

4 6* 


UP17E <9,1211 

GrOQ?7 2 


97^ 

121 

roj?rATt*c — 5 parameter S*l 

G00277 

00245 

93 4 

130 

CALL rOMGfM (^OPrHCP, 1 n* 9> 

CD0277 

0CZ45 

99* 

C -- 

— >. Cf.XnATC TABLE COMMON IN EQ«0 

ECu277 

or 44 5 

IOC* 

14 D 

CALL 7A?C.Cn 

CrC3C6 

CCZ4t 

ICU 

G 

IriftCMVATE G.C. PROCESSING 

CCC306 

DC 2^*1 b. 

1C 2* 

C 

— > orURME O.C. COMMONS 

UC03G6 

GC24fa. 

103* 

e 

in lOCAN-Dl -OICALL OCCOM 

LOC3C6 

G02M7 

10 M*. 


Uf?17E(9,151 J 

60G3LI7 

00251 

105* 

151 

FORMAT t*C > MODEL EQUATIONS *| 

CCDT14 

CO 251 

ICO* 

c 

— > transfer call SfOUENGE FILE ONTO PROGRAM FILE 

CC0314 

O0:52 

107# 


E ^;o r H r 1 2 

G0Q314 

o:.C5i 

k:p » 


PrUlNO 12 

QG031 7 

0 C 2 5 4 

12*'* 

3SQ 

CCNTlM^r 

OCtlZ 3 


1 1 J ♦ 


nr AH t 12, 61 .r ND=4D0 , rPRr9 99 IXSOUR 

GCJ323 

CD26D 

JIM 

37Q 

wri te (9,61 IXSOUR 

GOO 5 3 4 

0C2b J 

J 1 2* 


CO TO 35.3 

GDQ344 

DCibJ 

113* 

G -- 

— > uriTE RETURN AND ENTRY VARSET AT END Of SUBROUTINE 

GCD344 

GC2b4 

11 4* 

4 Cl a 

WRIT r 14,401 V 

100546 

OOZbb 

11^* 

401 

FORMA MtX, ’CALL T M PL 1 C t C VC LE S , OL TNE S > » 

Dnc3r2 

0 0 266 

116* 


1 /6X , 'IF MMPL.LT-4 IfiO TO 1* 

ICOJSif 

F-026G 

117* 


2 /LXMmCYCLE S.GT *n - lIMPL::!* 

DC 0 35 2 

UCZtt> 

1 1 r»* 


3/6X , 'KLIURN V6X, TnTkV VAPSET IT THE , TKAX »1 WDP »*l 

CC035 2 

GC26b 

119* 

C - 

— > jyp r 2 FOR variables, IVr - 0 rCR STATES. 

DDD352 

CC26 7 

12C* 


f VR-2 

CO C 35 2 

00267 

12 M 

e - 

— > test That there are VARIAB.LES IN MODEL 

CGC35Z 

0C273 

122* 


iriKOV.LE.Cl GO 70 62G 

CDD3E4 

CC273 

U"3* 

G - 

TLST FOR MORE THAN 244 VAPIAPLES 

CCD354 

C0272 

1?4* 


IT * NOV. DT, 2 44 1 WR T TT 1 9 ,4 11 11 V R 

CDj357 

00 2 76 

12 5* 

411 

format IbXMlFUNDPpGT. 244 )G0 TO 1QDD**11> 

C0U372 

'lOCTb 

in.* 

c - 

— > LOAD XSOUR WITH GO TOI 

CQU572 

62277 

127* 

42G 

X SOUR < n =GT U 1 

CC0372 


l2n* 


XS0L1RJ2 IrfiT 12 1 

OCC373 

D3 JO l 

12 9* 


DO GGG 1-3, P 

CCD4C0 

CCJ24 

1 30* 

SCO 

XrOUPTI irp.LNK 

0CU4 JC 

2C iiJ6 

13 1* 


IXSOUR^IZ 

CGC402 

CC3CI7 

13 2* 


NDlrC 

C0C4D4 

COiOT 

133* 

c - 

— > SCAN COMPONENTS 

L0C4C4 

COi7 0 

134 • 


iro 6U0 1-1 .NOCOPP 

GDL4 1C 

CC3TiO 

1 35* 

c - 

DENERAII STATEMENT NO. CORRESPONDING TO EACH COMPONENT 

C0U41 C 

DC 21 5 

136* 


I5ll = 9:cO*I 

COL410 

n:3i3 

137* 

G - 

— > CONVERT I5N TO Bcn Format 

CGC41C 

CO 3 l>4 

13f ♦ 


ENGOOC t 4 ,501 , TSinlSN 

CCC41 3 

CC517 

139* 

SOI 

rCRMATl J4 J 

CCC422 

CD 31 7 

1 4C * 

c - 

— > ivncx FOR THE NO, OF VARIABLES fSTATESl BEFORE COMPONENT WAS 

LOC422 

CQ123 

14 1 ♦ 


C ALL fiETCOD M ,SF0A .ICOMP) 

C0C422 

CC321 

14 2* 


vii-1 

CCC427 

CC 322 

14 3* 


CALL CLTcOD e J, IVRSET.NO.) 

CD0434 

::C32 2 

14 4 ♦ 

c - 

— > irnrx for the no. or iaariaelts istatesi after component was 

00043M 

CQ323 

145* 


jr4*lfD«p- 1 VH 

C0C44 1 

0C224 

14 6* 


CALL GtnCDD U,1VRSE T, Nil 

:c C44 5 

DC 324 

14 7 * 

c - 

— > TEST TO DETt RHINE IF ANY VARIABLES ISIaTeSI WERE FORMED 

CDL4i4 5 

OC325 

1 4 R • 


IFINI ,LC *N0 1 GO TO feOD 

uCC452 

CC327 

J49* 


N3=NC+1 

CDu456 

CCZ27 

ISC* 

c - 

— > SCAN THE NO. OF VAfirASLES ISTATESl FOR THIS COMPONENT 

tnu456 

C0330 

ISM 


TIO SZO JrNO,Nl 

CDC461 

CC333 

152* 


W67=- NGT*J 

C0U464 
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00333 

15 3* 

C 

TC$T ir ttVEL Of GO TO IS ftEOUlRtO 

DO 04 6 4 

00 3m 

15 44 


IFfH6T.LC.2‘t6)G0 TO 515 

CD0‘t66 

CQ3I£i 

155* 


CALL LIKE (0,XS0UR,IXSOUB,RPA« ,6,9t 

000V7I 

00357 

156* 


Uf?JTE C9,6UXS0UR 

roosoi 

003M2 

1ST* 


URITC tV»51 1 >1 VR 

CR3SI 1 

3DIS5 

15 9 * 

511 

FORhiA n • lOOD* ,1 1, ’ TNOPr IWO?>-244*l 

CDCi5 I 7 

eC346 

15^?* 


XSOUR(I)- GTtJ 1 

COGS) 7 

CC347 

16D* 


X?0URt21= GTt21 

DCUS2 1 

uD3SQ 

161* 


DC Sl'5 Kt3,8 

CDL526 

DC353 

3 6 2 * 

505 

XSOURfK)" BLNK 

CC0526 

J035S 

16 3* 


IXSOUP:: 13 

COGS 3C 

:iC 35fa 

164* 


wri rc 

CCC532 

nC2.i7 

165* 

S15 

ir{lXfX*ur,Nr. 131 call LlHrtO,XSOUR,TXSOUR,CO«KA#l,9l 

ODL534 

003S7 

166 • 

c -- 

--> PLACE STATEPEM WO* IN COMPUTER 00 TO STATCHENT 

ICC 5 3 4 

0Ci6l 

167* 


call line ID^XSOMR, lX50UR,15f4t 4.9) 

CCI.F46 

00362 

16 F* 

520 

C0Ml\'Ut 

CCC56 1 

nC364 

165* 

6D0 

couTirmc 

D0C561 

CC36<^ 

171* 

C -- 

CflHPLCTf GO Tor STATfrtFNT 

DCGS 6 1 

CC366 

171* 


CALL LI N£ to ,XSOUR, JXSOUR 6l2H) .INOP .6.9> 

DGLS6 1 

OGZLI 

172* 


ur?nf t9,6l IKSoUR 

CLDSTl 

CZ172 

I7Z* 


IFt 1 V^.L£ ,G) GO TO 700 

r,DC631 

0C37H 

174* 

620 

IVR-C 

CDU60S 

LC376 

175* 


WR17EI9,60n 

rcD'jOs 

L G 377 

176* 

601 

ronKAHfpX, •TMTRY RATSfTITIHr.THAX .IfiDPI *1 

L0L.61 2 

rxi77 

177* 

G 

— > TEST THAI THERE ARE- STATES IN THE MODEL 

LnC6l 2 

DC*i20 

I7e* 


irtUOX-LE.Ol 60 TO 7.00 

coot 12 

U04G0 

179* 

C 

IE ST IF 2ND LEVEL OF DO TO IS REOUIRED 

CCC6) 2 

;*:CH02 

IPC* 


IF (NOX. 07.244 ) UR ITT C 9,411 nVR 

GCUM 5 

LC4G6 

LCqjb 

Iftl* 

182* 


60 70 423 

CDLf.:7 

D0L.627 

C 

ruKn uri K 1 1 ric u i ^ I n ^ — 

C 0426 

18 3* 

c ^ 

— COMMON AND DIMLNSJO.N STATCHENTS 

CGC627 

co^ia? 

18 4 * 

700 

UR] TC (9, 701 miLE 

CCCft3 1 

com 2 

185* 

701 

format (6X, •tND*/MFOR ,1S A 5 S I .D A T A T N , A S RO . D A TAIN*/ 

0Ul6 4 0 

CC4I2 

186* 


16X, *SU3P0UT TNE D A T A T N • / * C VC * , 9 X , 7 A 1 G/ ’ C * / 

GDC64 C 

CCH12 

187* 


2*C — TfHS SUBPDUIlNr WAS PREPARED BY T HF EASt PRCCOMPlLCff */ 

CDC64C 

0C412 

1=8 8 * 


36Xr*OOiJiUE PRECrSlON N AME X , NA MC R . N APE V ,N AMLP V 

C0C64 0 

CC«<12 

369* 


46 X, •cOttPOM/rOPDCR/ffOX ,UOV,riClP * J 

C0D64G 

00412 

J90* 

C - 

-«> TEST TF STATCS ARE PRESENT IN MODEL 

CG0640 

CC413 

1 9 1 * 


lFfN0Y.L7.il CO TO 740 

CGD64 C 

QiC i| 1 3 

192* 

C - 

— > FORM SI A IT fiCLA TED COMMONS 

LCC64 C 

CC415 

193* 


WP17Et9,7llMNOX,i::iplC) 

C0(jf*44 

0C425 

194* 

711 

FORHATfC STATE RELATED COMMONS*/ 

LCCt 5 5 

0C423 

195* 


16Xp •COMMON/CX/xr * p I * * ) /C XOO T 7XD0 T t 14. * » /C XIC /X IC C * » 14 ,')*/ 

LDL6SS 

OCM23 

3 96* 


2 5X, • 1 /CXIC 1 /X ] C 1 1 * . 1 4 , *)/CXJ C2/X7C2 t ’ . 14 * ' ) /CXIC3/XIC3< ".14 . • 

CGC655 

110423 

197* 


3SX, *2 yClNT/l NT r* , 14 , " ) /cN AMC V/NA ME X ( * . J4 . * ) /CN A MFR/NA Ht R 1 • .14 t • 

C0C655 

CG423 

19fc* 


4/5X ,* 3 /CNTRLS/Am , IPRNT ^KODF , C RF? OR t * ,14 , • 1 • ) 

CC0635 

C0423 

199* 

C - 

CALCUlATC INE AMOUNl OF WORK SPACE REO"0. 

OCOfSS 

CC424 

.226* 


NOr NOX* r 2*NOX^7 ) 

CDC65S 

C042S 

2Cl* 


If IND.lt . )OCO)NO = 1DOO 

CCL662 

CD427 

202* 


WfMTCt9,7l9nfG 

sncf.Tc 

GD432 

2D3* 

719 

FORMA T < 6X, * COMM ON /C WORK /CW09K ( ■ ,1 5. • ) *1 

CGL6 7 7 

DQHZ2 

204* 

C - 

— > TE^T Xr vARIAPLES are PRESENI IN MODEL 

CDC677 

Cfl433 

2C5* 

740 

IF r TiOV.L T .11 FO TO 7fiR 

Or 66 7 7 

20435 

206* 


VRJ U r9 , 74 i I NOV ,NOV 


L044 1 

2C7* 

741 

FOFTMMfC > VARIABLE PEL A TE D CO MM OH S V 

rCJ?l 2 

rOH4l 

2G£* 


16X , "COMMON /CV/V f • , I 4 , * ) /CN AM C V /M A MC V < * , 1 4 , M*) 

GCl.71 2 

CG44 1 

2Q9* 

C - 

— > TEST IF PARAMCTFPS ARE PRESENT IN MODEL 

on L 7 J 2 
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CE442 

2JC* 

00444 

211 ♦ 

PD4S0 

212* 

00450 

213* 

LD453 

714* 

C0451 

215* 

0045b 

Z\t* 

CD456 

217* 

GC457 

21 E* 

DC457 

219* 

00461 

220* 

LE463 

221* 

00 46 3 

22?* 

00464 

223* 

0C46 7 

724* 

CD467 

225* 

C0470 

72 b* 

00 4 72 

227* 

0D473 

72 B* 

L0475 

729* 

:C477 

730* 

CG477 

231* 

GC477 

237* 

Of 003 

233* 

SC SCO 

234 * 

CO 501 

235 * 

CCS) 1 

236* 

3D01 1 

237* 

PCS) 1 

23e* 

3CM1 

239* 

5 1 2 

2.4 C* 

GCSl 3 

24 1 * 

GDS15 

242* 

0GS15 

24 1* 

JGS15 

24 4 ♦ 

UZ 1 1 5 

24 5* 

rosib 

24{ * 

LC521 

247* 

t 0522 

24F* 

GG52 3 

2 4 9 * 

0GS23 

2b'"* 

:C5Z5 

251* 

C0526 

25 :* 

EC 52 7 

253* 

00530 

254* 

OCSil 

255* 

LG542 

756* 

00542 

257* 

GC542 

25fi* 

CDS42 

259 * 

rOS42 

76C* 

r 0 54 2 

261 * 

rOS42 

262* 

CCS42 

76 3* 

CO 542 

2 6 4* 

0054 3 

265* 

(JQ544 

26 6* 


780 ir<Nor,LT^n oo io soo 

WPITC (9,7Ci)-HOP,MOP 

78 1 roRKA7«*C > PfiRAHtTER RELATED COMKOWSV 

16^ t • COKPDM AGH AH E P /N AKf P ( * ^ 1 ** * ’ >* > 

C > lOAO VC\. or STATE, VARIABLE, AND PARA^ETTR'S INTO COHHONS 

AGO UK I T L <9 , 2 I » NOX , HO V , NOP 

e?l fCRPATl'C > Sf T NCT. GT S T A T pS ,V AH T Afl LCS * AND PARAMETERS*/ 

16X, ’mxr • ,Ii| /6x , •N0V:r*,l4/t^X^ 'NOPr' ,1R ) 

ir«NOX,LC*3) PQ TO BSD 

C > LOAD SIATE ERROR AND PARAMETER DEFAULT VALUES INTO COtIHONS 

UP! xr 1 

BTl roPMAU’C > LOAD STATE ERROR DEFAULT VALUES'/ 

lfeX,*DO lED 1=1 ,NOX VlX , 'ERROR a l',l ’ I 
ir!PFNAML-.Ef),ECSlURTTr«9,S33J 

83 3 FOR PAT ( 6 X , 'CALL Gf T 7 ( UA ME X C T ) , 1 ,K AR J ’ /6 X , *1F CK aR •EC *HT lERT^Otl C I >"1 

3* VoX,MriKAW.LO,HP>LRRORai=.005 ' J 
UPTTE «9 1 I 

6R I rCRKAT**!C0 CONTINUE’! 

850 Tr(NOP.U*al CO TO B6D 
UPJ fL(9,UBl \ 

B5l EfiRKATt'C > LOAD PARaHETER OEfAULT VALUES*/ 

16 X, 'nn ^SD I-l ,NOP */ ' 3C0 P( I .99 999 '/ 

26X, 'UPIVE ! 6 ,301 I V301 ToRMATl IHD ' I 
B6G REUlun 12 

t — “> START FORMATION OF INPUT REOUIRfMENTS LIST 

VRITC(|2,G61 niTLE , NO COHP , NOT A B , N OP ,.NOX , NOV 
B6X r0RHAT«//lDX ,7A1:0//5X, •THIS M GDEL CO NT A IN S 'tlHt* COMPONENTS*/ 

iSXr'WTTlt TAHLE$%2X,I V,' PAR A ME T C RS ' ,2X , 1 9 1 * STATES AND* 

22X, 14,' variables- • 

2//10X,'1nPU7 data REQUIREMENTS LIST'/I 
M / X T r r 

ir (NOIAP.LE .0)00 10 D6R 
CALL lAOLAL 

e “=r = T=^r = -r:::r- COMPLETE DATAIH SIJOROUTINC == START BLOCK DATA MODEL 

C 

C CALCULATE TOTAL STORAGE REQUIPED By MODEL TABLES 

no Cb? I -\ iNOTAP 
CALL GE rrODtSfTAONAM ( It, NT 
MflXT-PAX 1 tlADS IN I 
862 CONTINUE 

C USTS TO PREVENT DIMENSIONS < 1 

864 NCVPrPAXrtNOV,! \ 

NOPP=MAXn ( NOP , ! > 

HAX TP-MAXCM>AX T I 1 ! 

NOTAbP=NAXjtNOTAD, 1 V 

uri TE (9,1-65 INQXP pNOVP ,NOPP ,MA XT P , NO T APP , NO T A EP* NO T ABP 
.865 rOfJHAl 16X,*RE TuRN'/6X,*rND'/ *aFOR,IS ASS I .H D DC L , A SRO . MODEL* / 

16X, 'BLOCK data MOO£L'/*C > mOOTL NAME COMMONS'/ 

26X,'L)rU0LE PRECISTON N A X *NA hC V , N A Mt P , 7 A P N A M V 

3 6X, 'cnM^UiN/riiAaEX/NAMrXt'tT*^! •J/CNAMEV/NAMEV l',I4 , 

4 ' J/CNaME JVNAMEP < * . 14 , M '/SX 1 / G T A Bl L /T A B L E S ( ' ,14 , ’ t /CTABNA/T ABKAH 

5 ( ' , 1 3 » V 

6S.X , *2/Cr AXOT/NOTAP , PA xn 1 M ( ’ , I 3 , ' ) / C L OC T A /I OC TA B f • , I 3 , ' I * > 

C - — > CREAFE EoUIVALENCE statements ir NEEDfD TO ALLOU DATA 

C — > statements to load name LISTS EXCEEDING 13G NAMES 

CALL COME QU< i 211 NAME X ,NOX > 

GALL COME OU < 12HNAMEV ,MOV ) 


00Q712 
DDOTl 5 
UC0725 
C00725 
CDD725 
GCD725 
CDD774 
C0C734 
L0a734 
003734 
C0C737 
CC0744 
OOU744 
CCC74 4 
C0G754 
□DG7S4 
C0C754 
C00762 
C00762 
cn0764 
000772 
LC0772 
CCU772 
CD0772 
C00772 
C00T74 
DolDlZ 
0DIU12 
t01S12 
CO 101 2 

onici 2 

C01013 
G01016 
GG ICi 6 
GD1016 

or 1016 

DO I ">2 0 
CD102b 
001033 
CGIC40 
CD104C 
LOlOMu 
CC104S 
LOID53 
C0106X 
LD1L67 
CD1103 
CD1103 
LO 1 103 
GO 1 1 C 3 
cnno3 
E011D3 
CC1103 
:o 1 1C 3 
CO 113 3 
001103 
001107 
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C0S45 

?b 7 • 


CALL ro^fCGU ri2HWAr^E;p > 

CDl 1 1 3 

COE, 45 

2 b fi* 

C 

> 7CST FOP O.C, IF YCS CALL OCBLKO 

001113 

OC 54 5 

Zb 9* 

c 

JfiACTlVATC D*C* PPOCCSSING 

com 3 

CD 54 5 

27C* 

c 

IF{ lOCAlJ-GT •CICALL OCf^LKD 

DG in 3 

uC545 

271 4 

c — 

> GCNCRATC »AMF DATA STATCMCWTS 

:Dni3 

00546 

272* 


URJ7E (7 ,fit7 1 

com 7 

rossa 

?73* 

B67 

roPMATMC > nOOCL OATA S 7 AT Ef-EN TS * | 

CCU24 

LC 

274 • 

G 

> OILTRATr STATTt VARIARLt, A^^D PARAMETER NAME DATA STATEWEKIS 

C01124 

CO 551 

275 * 


CALL (JA^'AFY n2MNAVEX ,5t«0X,ai 

LOl 124 

CC552 

2 76^ 


call *^A^AF Y (1 ?H5'AME9 .5,NnVtIl» 

con 32 

C 0 55 3 

277* 


CALL MAMARY ( IZH6AHCP ,6 ,«0P»1(}» 

L C n 4 c 

C O 55 3 

276* 

c — - 

> CALCuLATC mo. or words lu tables CLFSS flight TaOLES* 

CC 1 14 0 

CQ553 

275* 

c 

G£6rR/v7E table MAMES, hAX DIMENSIONS. LOCATIONS 

CC114C 

0C554 

?ec* . 


call TA«nAl 

CC1146 

CC554 

ZP l» 

C r rr 

= - T AOLC INITIATION r__ r rr_ 

DO n 4 L 

CCObB 

262* 


WPJTE <7,.i69)MAXTP 

con 5c 

LClbO 

?aj* 

E69 

rOfiMftTfLy .'PAIA TABLE S/**I5.9H*1 . 99 9 99 / /6 X , * END * 1 

CO J 1 56 

i:056l 

2^4* 

a fl 0 

iriNOr.LE.Dl 60 TO 760 

CD 1156 

LG 561 

265* 

c — 

> ADO parameters and STATES TO INPUT REOUIREMCNTS LIST 

GC 1156 

C0563 

2^6* 


NUNI T=10 

criibi 

DC E.L4 

2«7* 


N1=N0P 

C01163 

:iDS6S 

2fiB* 


VKI TC (1 r.88 1 ) 

CDU65 

r:L07 

2CV • 

8P1 

FORMA H ///14X,* parameters REOUIREO*// 

CO 1172 

1 056 7 

2VC* 


i J 3> , "COMf-ONI NT* ,5X ,*RArAHCtERV 

CD 1173 

00 56 7 

2*? 1 * 


21 5X , 'NAME • . ICX , •NfiHC • 1 

oc n 7 j 

C057D 

292* 

900 

REWINH nunit 

CD 1 1 7 3 

r0571 

293* 


comps=knk 

CD1175 

UC572 

294* 


no 94u I=l ,N 1 

G01233 

CC572 

295* 

C - — 

> scan parameter (STATCl LIST 

CC12G3 

?:C575 

296* 


rF AD <MlfNl 7,901 JANAHE 

C C 1 2 C 3 

CCiOO 

297* 

901 

FfT^MAKA?! 

com D 

CC651 

29B* 


CALL SIRMOV ( ANAME,4>4 .COHP.l J 

GC123 C 

rcLOi 

299* 

c — 

> COMPAPC CURRENT COMPONENT NAME WITH PREVIOUS NAME 

CO!?! : 

CCt-D2 

250* 


IF (COMPS .CO .COHipl GO TO 920 

com 7 

□ 0 604. 

301 * 


UP! rC (12,91 11 

CO 122 2 

Z. C 606 

302* 

911 

FORMAT (IN > 

CD122? 

CC607 

3C3* 


COHPS‘COHP 

GO 1227 

CColO 

2 04 • 

92D 

WRITE (12,92 11C0M.P, ANAME 

CD 1232 

OC6I4 

2C5* 

921 

F0RHAT( 1EX,A4,9X,A7) 

CD 1 24 2 

CC615 

3C6* 

940 

CENT I VUE 

CD 12>l 2 

CC617 

207* 

96 0 

corn iNUE 

CD 1?4 2 

CC620 

3oe* 


IF( NOX.LC.O) RETURN 

C0124 2 

15 622 

269* 


lF(fiUNn .E0.8J RETURN 

CC124 7 

00 624 

21C* 


NUN I T -fl 

001255 

l;C625 

311* 


NUNOX 

CC1257 

l'0626 

212* 


wrnr(i2,9tu 

CC12C 1 

00620 

313* 

961 

format ax , 'STATES V 

CG1266 

00630 

21 4* 


12X, '(INITIAL CONOrUGHS AND ERROR CONTROLS REOUIRED)*// 

001266 

00630 

315* 


2 I 2X , 'COMPONENT • , bX , ' S T A |E ’ / 15 X . *N AM E * , 1 DX » ^N AHE *1 

CO 1266 

0C631 

216* 


no TO 900 

001266 

n0632 

.317* 

999 

f RETURN 

CC1270 

CC633 

216* 


END 5 eT/DMOO *******♦*•*♦♦*♦**♦**♦♦*•*•♦** 

CO 122 5 



BCS 40180-3 




SUBROUTIfiC HLlfJC CWTRT P0I>iT OOOII<* 


STORAGt USrO CODE Cl): CC0130; DATMOl OOOD26; BLANK CONNON(2) ODOCOO 


EXTfPMAL RFfEREfiCES iBLOCKy «AKE» 

0003 PUTT 
0QC4 KO^'SIR 
OCOS NCRR3S 


STORAGE ASSiCUHtJJT (BLOCK, TYPE, RELATIVE LOCATION, NA«fl 

jroi CCC021 inCL OGUI 000042 124 c OODI G00G27 2D-0L ODOl ODCIOG 300L 0 COO D CQfl002 NGI 

COCO D OuCCOa HLT OOCO I OOGOID 1 0000 000015 INjPS 0000 1 00000b II OOCO I COOOD7 12 

0004 I QCiOODO KOHSTR 0000 0 G00004 POINT 


tiOlCQ 

1 • 

C?rLl?^E 

cnuoDS 

rciDi 

2* 


SUBROUTINE ML I N E t P AGE ,L 7 Nf , IN , I P ) 

0DGQC5 

joni 

3 ♦ 

c 

PURPOSE ADD A HORIZONTAL CONNlCTTOH LINE TO ECS SCHEHATIC 

CG0005 

or 101 . 

U* 

c 

CALL SEQUEHCE PAGE - 13X56 ARRAY CONTAINING HOLLORITH 

COC005 

roioi 

S* 

c 

rcprcsentattom or a pace 

CD03DS 

L C 1 J 1 

f 

c 

LINE - LINE NO, FOR HORIZONTAL LINE 

occoas 

i.cini 

?♦ 

c 

IN - INPUT COMPONENT TOL. LOCA IJON 

cooros 

E 0 1 0 1 


c 

IR “ PCCETVING COPPONENl COL- LOCATION 

coccus 

U0103 

9^ 


IMPLICI T DOUBLE PRECISION (A-Z) 

GCOvCG 

C0I04 

!£♦ 


IMPLICIT IN TIGER ( 1 , J , K , L , H , N 1 

ccccos 

CCIOS 

1 !• 


OltlENSJON PAGET 13,56) 

CCCEuS 

.;cios 

124 

c 

LITERAL •POOL’ TO S A T 1 SF Y DBL C PRCCSN ASSGNMNT STHNTS 

GCGCD5 

ncuob 

13* 


DATA HLT/*< •/,MOT/*> 

C0CC05 

V310U 

14* 

c 

> 15 INPUT C0‘1P. ON LEFT OR RIGHT 

C0CC05 

: 0 u 1 

lit 


IFMN*GE-IR)GO TO 100 

C0CC05 

oon 3 

It* 


PC] HT-HGl 

OCOCl 1 

0DU4 

17* 


HrlN 

fPQCl 3 

UCU5 

le* 


1?=1R 

000DI5 

ODllb 

IS* 


GO TO 2011 

CQ0D17 

LOHb 

2C* 

c 

> INPUT IS OH RIGHT 

000017 

coil 7 

2J • 

IDO POINTrMLT 

DOCCZl 

r.D12J 

22* 


1 1 = 1 R 

CG0C22 

C D 1 2 1 

23* 


I2-TN 


roi2i 

24 ♦ 

c 

— > PLACE POINT ON PCCflVING EHD Of LINE 

C0EC24 

LCi22 

21* 

200 GALL PUT HPAGU IrllNE 1 ,7R, POINT) 

COLOZ7 

GCJ22 

2t* 

C 

> ADil NO, or SYHBOLS RC0”0. TO SPAN COLUMNS 

C0LC27 

CG123 

21* 


DO 30C J=n ,12 

0DG035 

00123 

2P* 

c 

> TCST TO PREVCWT OVEftWftlTIMr. POINTS 

LOGOiS 

oCl26 

29* 


IT CKOHSTli tPAGC n ,L INC 1 ,7 , 1 ,HL1 , 11 .CO.^IGO TO 300 

20LC42 

00133 

JO* 


If (KO»<STh<PACC 1 1 ,L1NC ) , 1,1 ,»I&T , 1 • tCO.CIGO TO 300 

CD0C5S 

00130 

31 • 

c 

> ADD H0BI70NTAL LINC SYJiROL 

GQL.05S 


o 

(/> 


O 


CO 

o 

A 

Ca> 


U0132 

32« 


C all niT T (P«CC ( 1 »L IMC 1 • 1 » 12H: 

00133 

33* 

iOQ 

CONTIfmE 

G013S 

3M* 


PriURN 

CGI 3^6 





COOC70 
CCOlOl 
COOlO 1 
C0U127 




BCS 40180-3 


8 


rUMCTICNlJDIt ENTRt POINT 0000>»«l 


STORACC usro conctn OOOOSU; OATAIOI OOOOIS; blank CONHON (21 OOOQQQ 


CXTCHNAL RtrCBENCES lOlOCK, NAME > 

ODOJ NtPPJi 

storage ASSTGKMCNT fBLOCK, TYPE, RELATIVE LOCATION, NAHEI 
3Q£0 1 GCaCjOl IPIT DDOO 1 000000 IJQIT 0000 000305 INJPt 0000 I 00Q0Q2 JWORO 0X00 I 000003 LBIT 


r01G3 

!♦ 

CTJ'^IT 

coooor 

:oiGi 

Z* 


FU^CTIO^t IJRJTCApIt JtN) 

000C02 

GGIQI 

3* 

G 

vcRsior^ u REvisrn luo 7 1975 

GCGDG2 

coiai 

u * 

C 

PURPOSE SET IJBTT EQUAL TO THE 1 J ELEMENT IN OINARy ARRAY A 

GDDC02 

re 101 

5* 

C 

CALL SEQUENCE A - N X N PI NARY ARRAY 

GD0GD2 

CG IDl 

0* 

G 

1 - POU INDEX 

COG002 

c □ 1 m 

7* 

C 

J’ - COLUMN INDEX 

CGCC02 

LClOl 

fi # 

C 

U - COLUMN OImCNSIOM OE ARRAY 

CGCCU2 

0131 

9* 

C 

DESIONTO PV J.D, PURRDUGtTS JULY 1975 

:GLPC2 

t oiu:3 

10* 


■niMfusioN Ain 

rfjL.00 2 

oa 10^ 

11 « 


leiTrniJ-I J4N-J 

GJ0G02 

^0105 

1?^ 


2UORn:lEJLT/36 ♦ 1 

ODOGIG 

C013& 

13* 


LPi T=MOD nen .3fci 

CDOCl^l 

TjC J37 



IJAIT - J 

rOOG2C 

jCU3 

15* 


rL0<3S,l nJOlTl r FLDILBITtl, Miy.nROn 

COC021 

'em 

lb* 


RE 7 UR N 

COCG32 

C0112 

17 4 



OQCLM 7 


original page ISi 

OF POOR QUALUg 


BCS 40180-3 



SUBROUTINE JJBITl ENTRY POINT 000050 

storagt: usro conECii ocqqss: o/iTAta) ooociT; blank comhoniz* oooeoo 

EXTCnWeL BrFEBFNCES {BLOCK , NAftEI 
0003 NCRfiJ* 

STORAGE /SSIGNHENT (BLOCK, TYPE, RELATIVE LOCATION, NAME I 
0000 I 000000 IPIT 0000 OOOOOS IN*irs 0000 I OOOOQl IWOPD OODO I 000003 111 OCQQ I 000002 LBlT 


COJLOQ 

!♦ 

CIJOITI 



GDD0D7 

cGioa 

2* 


sub*?ou7Ine: rjEiTi i a 

T X f J f N 1 


:guoo2 

CO 101 


c 

VCR SION N 

REVISED AUG 

7 1975 

000002 

CC101 


c 

ruRpnsr toAD 1 rw i 

J LOCATION OF N Bt 

N BINARY array A. 

C00CG2 

COlOl 

5* 

c 

CALL SCDlJCNCE A - N 

)f U BINARY array 


C0CG02 

CO 101 

6 f 

c 

T - 

ROW INDEX 


C0CC32 

CCiOl 

7* 

c 

J - 

COUJh^N INDEX 


J.coca? 

i'Oioi 

ft* 

c 

N - 

COLUMN DIHENSION OF 

array 

000002 

cei Ji 

9* 

c 

DtSITNrD DY J-n. BURROUGHS 

JULY 1 975 

OC0302 

i: 0 1 D 3 

10* 


Dirtrisiov A(u 



CC0CC2 


IM 


1PIT = MC J’ IJ*H-1 



CO ODD 2 

CO IDS 

I 


lW0PDrJ'EiIT:/J6 * 1 



00001 □ 

cn 106 

13* 


Lf>lT::>tODnBn,36l 



OQcon 

u:niQ7 

1*4* 


III =1 



GDC02 C 

cono 

15* 


fLD<LPlT,l,A<lUORnn r FLO 1 35 , ! , X 1 1 1 


rOOG22 

com 

16* 


priupM 



GCLQ36 

CO 1 1 2 

17* 



o o 

OQDCS*l 




BCS 40180-3 


\n 


SiJDRGUlirJE INCOH CNTPY POINT GOlO^^Qi 


storage used :G0DEI11 bOUS2; DATAC'OI DIDG521; BLANK GQH«ONf2J OGOCGO 
GOHWN FLOCKS 
G#3 5 cm DO 0,00 3 


EXTERNAL REfERENGES iBlOCKf MAKE* 


0C04 

COKDiAT 

GOGS. 

KG^'STR 

0 dOi> 

rUTCGO 

iJGDT 

r.l TCpG 

30 10 

ul AOM S 

0111 

NXTPH 

Of! 12 

Ml fIG 

301 3 

rt T T 

0014 


00 15 

51RM0 V 

0 016 

r 0T7 tgn^ 

3017 

WR TINS 


sunn 

.0 021 

NI021 

LC22 

NIOIA 

Q02? 

Nr RR3S 



o 

P Hi 


STOn/lGC *SSI6NMtNT (BIOCK, TYPE, RELATIVE LOCATIOK, NAMEI 


0 731 


niC-U75 

12 0L 

Gcai 


G3D024 

1220 

GGOl 


000135 

13 CL 

ODOX 


000146 

14 01 

GCOl 


CO ni4 3 

ISGC 

OCCJl 


GC7Z31 

IfiCL 

caoD 


OC0346 

16 IT 

0 001 


00D241 

IftQL 

0001 


00D246 

2G4G 

CCGl 


ccr 266 

22GL 

CiOGl 


uC 03.2 0 

222 0 

CGCl 


OOD313 

24 LL 

Goni 


Q0D40D 

244 G 

ocni 


000435 

2550 

CCCO 


C3G374 

26 IF 

uOGl 


L. DO 34 7 

2 P 0 1 

C 301 


0005 73 

3 00L 

ODDI 


000633 

3 1 6G 

OCPI 


GOD 4 32 

32G1 

DOOl 


CO 065 2 

323G 

OCGl 


OLC’750 

34 7 0 

DCIDI 


000762 

35 6D 

OCOl 


000467 

363 L 

ooei 


0G0775 

365G 

OCCl 


CCICIG 

2740 

onoi 


0Gf472 

3F0L 

GOQl 


000476 

40CL 

0001 


300553 

4 2 CL 

07D1 


C00602 

44 GL 

ocu 


CDC62G 

50QL 

JOOl 


00067? 

54 UL 

C’OGl 


0C06TT 

560L 

Qcno 


D33421 

57 IF 

OCGl 


001014 

6PCL 

0 CCO 


CCi n4 3 7 

eoir 

GOOD 


:L7444 

P.0 3F 

crco 


00045! 

flCBF 

0030 


000456 

e07F 

0000 

D 

□00316 

6LNK 

OGuC 

0 

GCP34 3 

DINNA^ 

CDOC 

n 

GC733S 

nPORT 

C?UG 

n 

000323 

IITNPT 

CJ0C3 

D 

000322 

HOUTP 

GOPO 

0 

000314 

H227 

QCOO 

1 

ZjCSIZ 

I 

30o.3 

I 

CGOJGZ 

IDT AG 

0GG3 


0004 75 

INJPT 

OOOQ 

3 

030342 

IPHR5 

0003 


CCGOOO 

IPE AD 

OCCO 

I 

0603 32 

TliCOKP 

GEiG3 

I 

OGOODl 

IWRTTE 

OrGD 

I 

Q0C345 

J 

00 05 

I 

□00000 

KOKSTR 

GCDO 

I 

0003 3 7 

PODt 

OCCO 

I 

C0P324 

NOC^N 

CO GO 

1 

DC03.31 

NUiNPT 

ufOG 

z 

000327 

NUQIIT 

Cl C OG 

D 

0L032S 

OCOMWN 

0000 

D 

ODDGGO 

UIKPUT 

C033 

0 

C3C146 

UOUI 

QDLO 

D 

DC cm J 

UflUTNM- 

0 0.00 

:D 

PD 03 33 

WPQRT 














COlOO 

1 * 

GO 101 

2 ^ 

0 C 1 01 

2 * 

CO 101 

4 ♦ 


i 

CIHCOH 

SHEiROUT IME INCOH (I C OH ,PHBS tlNDCX ,H0INPT ,01NP UT.NBOUT * 
1 DOUT , PGO m NH ,C HP pod , NO COMP , I COMP » 

C VERSION 2 . RCVlSCO &CC J6 1975 


:occC5 

QOOCOS 

00C03S 

COUQOS 






m 

r> 

c/> 

o 

CO 

0 

1 

CO 


\M 


JDlOl 
DGlOl 
LCIOI 
uOlQi 
rGi3i 
ODiai 
ccioi 
GClOl 
r3ioi 
cGl Dl 
CiClOl 
OGIDl 
CQIQI 
PCIC3 
UCluM 
CC Jt}5 
VBlQb. 
LQ Ju7 
r c 1 J 7 

GO 1 10 

c c n 3 

C u 1 1 1 
:gu6 
CD116 
roll? 
C.DU7 
CDl 20 
CQ120 
LC121 

rrcizi 

0 G 1 2 M 
C3126 
roi2b 
.001 10 
GDI 30 
CC131 
0D132 
CC132 
GCn3 
00133 
0 D 

GD13S 
C0136 
D D 1 3 6 
00137 
GDIUQ 

oomo 
r c 14 1 

0014 I 
0014 3 
C C 1 4 4 
PC 146 
00146 
GG14 7 
C0152 
GG 152 
D0154 


5* 

6* 

7* 

e« 

94 

ID* 
11 ♦ 

J3* 

14* 
15* 
16* 
17* 
1 f ♦ 
19* 
2C* 
21 * 
22 * 
23* 

24 * 

25 ♦ 
26* 
27* 
2e* 

29* 
30* 
31* 
3?* 
33* 
34 • 
35* 
36* 
37* 
34* 
39* 
4C* 
4 1* 
42* 
43* 
44 • 
45* 
46* 
4 7* 
4H* 

4 9 *. 
SO* 
51* 
S2* 
S3* 
54* 
55* 

5 6^ 
5 7* 

sa* 

S9 * 
6C* 
61* 


C 

c 

c 

c 

c 

e 

c 

c 

c 

c 

e 

G 

G 


c 


c 

c 

c 

c 

c 


PURPOSE PCRFORM INPUT-OUTPUT CONNCCTTONS BCTWETN STO- COMPS. 

CALL SEQULNGt ICOH - COtiPflNo STJflNvi ARRAY 

PHRS - GUPRCNT PURASE fUPSTREAK COMP. NAME UPON £NT 

INDEX - COMMAND STRING CHARACTER INOEX 

NniNPT- NO. OF INPUTS FOR DOWNSTREAM COMP. 

DIMPUT * LIST OF INPUT OUANlITY NAMES FOR DOWNSTRCAW 
COMPONE NT 

NDOUT - HO. OF OUTPUTS TOR noUNSTREAH COMP. 

GOUT - LIST or OUTPUT OUANIITT NAnfS FOR POUNSTREAM 

oeoMNM-- sprcmc component name or downstream comp. 
CMPHOD - LIST OF COMPONENTS JN CURRENT MODEL 
NOCOMp - NO. OF COMP. IM eURpCNT MODEL 
ICCMP - UPSTREAM COMP* TYPE 
IMPLICIT DOUbLE PRECISION (A*ZI 
IMPLICIT INTCCLR n,JtK,LpM*N> 

GOURLE PPrCISlOU ICOMtlCOMp 
COMMON /CTO/IRCAD, J WR J Tf »IDIAR 

DIMENSION ICQHI 8 ) *DINn)T 1 3 1 ,DOUT ( 1 I rUINPUTCS 1 1 « UOUT i 5 1 1 . CMPHO D 1 1> 
LITERAL TOOL* TO SATISFY DRUE PREcSN ASSfNMNT STMNTS 
DATA H2Z2/*2Z7 Vr^LNK/" 

DATA MINPT/MNPT . * / * »I0 NT P / *0U TP 

— > NO. or connections lumcAfoR 

NCCON-C 

> SAVE UPSTREAM COHrONCNT NAME 

U.COMNMrPHRS 

> gcT list of upstream Comp, outputs 

CALL COHO A T t UCOMNK tllOUTp^HUOU T ,UOUT I 
- — > SCAN COMP. IN CURRENT 40DEL 

DO 100 I^ltNOCOMP 

> TEST TO SEE iF UPSTREAM COMp. MAS BEEN DEFINED 

1F( KOPST R t CMPMQD n 1 , 1 , 4 ^.UCOMNH * 1 1 .CO .01 GO TO 12 G 


IDO continue 

C > GET STD. INPUT LIST FOR UPSTREAM COKP. 

CALL COHOAT f UCCMNH ,HIKPTtNlJTVPT tUINPUT > 

G > store CGMP. LOC-’-lOc* COMP TtPE» NO* INPUTS FOR UPSTREAM CO 

CALL PUTCODf3,UCOMNMt-lGQ} 

CALL PUK OPTS .UCOMwh, HUT NP T 1 

c — > increment Honrt comp, count 

NCCCMn-NOGOMP* I 

G > ADD COMP. NAME TO CURRENT HODEL LIST 

CMPMOni NOCO*"P l::uCOHNH 

lUCOHPrNOCOMP 

CO TO 1 4L, 

C > GET THRU I LIST FOR EXISTING COMP. 

120 JUCOMPrI 


CALL rETcnoiS.GHPHODtTl .NUlNPT) 

C > TEST FOR COMPONENT DRIVING ITSCLF 

IT (KOMSTRfUCOMNM, 1 »4,DCnHHHrl KEO.DICO TO 13C 

C > Cn INF^UT LIST from FILE ? 

U IN PUT n J^HZZZ 

•IT i HUiNPT .GT .OICALL RE A DH S ( 7 , Ul WPUT , NUI NPT , 1 UCOMP ) 

60 TO J4C 

e > LOAD upstream inputs From DOWHSTREAH inputs LIST 

13D DO 135 i;i>NtJTUPT 
135 UTNPUl (1 1 = 0JNPUTU ) 

C > nfFAULI ON PORT DEsrONATlON IS BLANK (UNIVERSAL PORTI 

140 UPORl^blUK 


G0CGD5 

CCDQQ5 

C0G005 

COL005 

CDGQD5 

LDDODS 

I'OOGGS 

GQC005 

CCCQuS 

CDLDC5 

cocnos 

GPCQ05 

CDLjODS 

0GU3CS 

CGCCG5 

C20D05 

LOuDDS 

C0CCO5 

ECDDD5 

CDuCDS 

2CLC05 

C0G0G5 

C0CC05 

COC005 

000:36 

rncoG6 
CQODIO 
CCDOIC 
lCCD2R 
CCEG24 
CCCC24 
EC0U4 2 
CO [<04 2 
ECL'C42 
G00G4 2 
OCECSG 
COCC55 
C0CC55 
CGDD6 2 
CCCD62 
COU065 
ECi:G7l 
DC CD 7 3 
nODG73 
000075 
CnC076 
0CCC76 
ggqidt 
E0U107 
caoi23 
E0G122 
EOUl 33 
EOCl 33 
CCG3 3S 
DDU4 3 
L0C143 
CQG146 


[ 


ORIGINAt, PAi>E Ih 
OH' POUR QUALITY 



8GS 401S0-3 


„ ...V - 


VJT 

4 ^ 


UC 155 

G2» 


PPOnirBLl^K 




CQ0147 

1 Ql^b 

63* 


HTOC Tl 




cocisa 

.■■Cl 57 

tu * 


CALL ?'XTrn(7coJrt,i«DCJ£ ,r*msi 




50G1S2 

c a I to 

65 * 


ivi\n:izi 




CDC.15 7 

noit 1 

66* 


jr <K0«£ TfMPURS, J , 1 f 8LNK rl mto .OIGO TO 500 




CC0151 

CClfil 

&?♦ 

c -- 

— > TTST rop r/UHCPlC, I.Cr PORT NUMBER 




3GM6 1 

CC153 

fift* 


CALL NUHrPC(PHR5,TinCI 




DC 0 J 7 2 

aci65 

69^ 

c -• 

— > SAVE fJUKCRIC PORT NO, 




COG 172 

Dlltfi 

7C^ 


MODf- 1 




cool 76 


71» 


IJFCPTXPHR5 




rOG2O0 

CUIG6 

72* 


CALL Nic H IM ICOK,IVDnc,PHRSI 




rO02O2 

5 0 10 7 

7 3# 


ir { K GKSTP 1 PURS , w I , 1 I .to .0 IGO to 160 




CCC237 

r. c 1 0 7 

7 4 *! 

c - 

TEST ran rjUHEPic, i-E* port number 




CCC2D 7 

LOITI 

75* 


CALL *'UPCPC «P»RS,< If.CI 




CCD220 

C017i 

76* 

C 

SAVE DOVrrSTRfAM PORT NO. 




CDC22C 

CG172 

77* 


DPOR T-PHRS 




CCC22 ^ 

f> 0 1 7 i 

7^* 


IPHRS^C 




CCG226 

031 7 

79# 


rn TO 4?c 




CD0227 

wCI75 

B C » 

160 

w«l TEfiii'P ITCt 161 IPMR5 lUCOMNM 




COCr-^l 

CCf20l 

81 ♦ 

ILX 

ropMAf {/5X, 18H ♦** WAPNTN6 ♦*• ,A1Q,*IS 

NOT 

A valid 

PORT OESIGNAT 

LGD237 

0C2G1 

fl2* 


nO« ron JHPUT COrtPOUCHT 't/l*!,*. tHftOWEOUS 

CONNECTIONS HAY Qf*CU» 

CCC237 

DDOJl 

B3* 


2*1 




DCG237 

CC2:GE 



r.P TO 




COGP37 

C G 2 3 2 

85 • . 

C - 

~> SCAN UPSTREAM OUTPUTS 




LC3237 

DC 203 

fifa ♦ 

18D 

DO 2C“ I -1 tNuOuT 




CDD24 1 

0D2D5 

B7* 


IF (KOi<STR tUOUT M ) , 1 * 3 • P HRS , 1) . E 0 . 0 J GO TO 

220 



QCC24 6 

OCZIQ 

BF • 

2DQ 

tONTTNUr 




COC26 4 

aC2l2 

6 9* 


GO TO SCO 




uOG264 

CC212 

9^* 

C - 

— > SAVE OUTPUT NAME 




CDG264 

CC213 

91* 

220 

UnUTUJ'iUOUT n 1 




GnC26fa 

OC 2m 

92* 


f*rDF rc 




:CC27J 

C3215 

92* 


CALI ^'XTPI^ TCOMtTMOrX ,PHR5) 




CQ0272 

roci fa 

9if * 


CALL t'U^f RCfPMRS, 5 24C) 




C0C277 

D0216 

95* 

C - 

— SAVE UPSTREAM PORT NO. 




COC277 

0CC17 

56* 


UPORT ”PMRS 




COD303 

0GC2u 

97* 


. CALL UX \ PH f I COM jINOrX , PHR5 1 




OOD3DS 

U0 22Q 

9?ii 

c - 

— > SCAN frOyNSTREAM INPUTS 




CGG335 

DC 221 

9 5-r 

29Q 

no 2 c 3 r -1 .rioiNPT 




COGii 3 

DG22ti 

1G-* 


IF f KO''STFt 10 II^PUT Cl ) t 3 tPMR5, 1 ) .EO.O 100 TO 280 


C0G32C 

0?22fa 

JGl* 

260 

COM II UE 




CCoilfa 

CC233 

1C2* 


vfjTF rivRnr,26nPiiPs .dcophn 




C0G3U 

DG23M . 

1C3* 

26 1 

rniiPAM /SX , IBH *4* VARNING **♦ »AlOt*IS 

NOT 

A VALID 

INPUT. OUANTIT 

CCC345 

C3234 

1C4* 


lY OP PORT DESIGNATION FOR COMPONENT 



L0LI4 5 

C0235 . 

1U5* 


CO TO btZ 




0DC34 5 

C0236 

i06* 

2S0 

rNPNH I J 




S0S24 7 

C0237 

107* 


CALL NX 7 PH UCOM , J U fj f Jf , PHRS 1 




CDG353 

CC2^3 

108 • 


CALL NuMlSCfPHP£»T3nC) 




CGCJ6C 

GC241 

1D9* . 


DrOPT“PMP$ 




CCC364 

0C242 

nr;* 


iPHPSr^ 




DCC366 

GC2H2 

111* 

c - 

arancH roR “tTcii bctweeh names port 

NO. GIVEN 

1 ABOVE 

LC0266 

VL'Zfii 

112* 

300 

00 3BC T = l,JTrjINP1 




CD 3 3 7 C 

0 ii 2 H3i 

n / * 

c ~ 

— > irST FOR NAPE MATCH 




C0^3?C 

ZtZHt 

1 m 'fr 


IF { K0PS7 P J D TNPU7 n 1 * K 3\D JNNAM* 1 ) .NE. OIGQ 

TO 

3B0 


C3G43C 

3C246 

] l 5 ♦ 

C ‘ 

— > arpAsa port rrsT if port mot specified 



G3C4SC 

& u Z‘i3 

11 6 * 


Tr (Opf'RT .EO .PLMK )G 0 TO 3?0 




CGC4 1 3 

00C53 

n?v' 

C “ 

OOi,KSTRFAP PORT TFiT 




C0u41 J 

00252 . 

118* 


ir I KOPITH tDlWPurC 1 t 9 t 1 tDPOBT ,1 ) .ME . 0)00 

TO 

320 


COOM16 



BCS 4018G-3 


0C252 

tl7* 

C -- 

-> SCifl lrPST7?f:»K OUTPUTS 

C0Q416 

CD25«I 

120* 

320 

00 360 j=i,f;uour 

OCC435 

CC25<i 

121 • 

C — 

-> TCSr FOR WAHr r^^TCH 

GCC435 

CD2S7 

122* 


irt KO*^STRf UOUT t Jl , 1 , 3fU0UTM«. 1 1 .HF.O)GO TO 5 60 

crL**-s 

C2257 

12Z* 

c -- 

-> irST ir PCRT IS SPTCIFICD 

CC043S 

CC^61 

12*4* 


irfupoRTK'o^PLNx »cn to moo 

S0645C 

crr26L 

J25* 

C — 

U Sf rOR PORT KA TCU 

CC04S0 

CG2t5 

12£.* 


IFfKO“S 14 (UOUT ( J) , 9, 1 » UP0PT*1 1 .EO*OTCO TO 400 

CCC453 

C c 5 

137« 

36Q 

COM !T‘UC 

CULf474 

DC2b7 

12/* • 

3€0 

coNT n/ur 

C0C474 

a:;27i 



no 10 56!J 

CCL474 

:c2?i 

1 JO* 

C -- 

iArisrt sPcciFic input 

CCL474 

00271 

131 * 

e — 

-> GET UPSTRLAH ANp OOUNSTRfAW PORT NOS* 

1-CC4 7 4 

Or?72 

132* 

400 

CAL 1 ri TT 1U0U7 ( J) , 9 ,UPORT 1 

CuC476 

0C273 

133 ♦ 


CALI CM T tuiNPur <1 1 ,9,nrofUi 

CCCSC7 

COiTS 

1 3^ * 


CALL NAPCEN (UQU M J 1 ,UC(/PNH ,n j NPU7 I T 1) 

CGCS22 

£^G^7^ 

1 3^: * 

c -- 

TAG lt:tnn A5 FPCP AN UPSTREAM SOURCF 

COGS22 

GC27& 

IK* 


CALL SIPNOV rirLNft * ! , I (MNPIJMJ 1 ,E1 

IVLbZS 

DC276 

137* 


NCC ON’] 

cnc"46 

CC277 

13«* 


If ( KONE *6 0.0100 TO 44 0 

cccrsG 

0D277 

1 3 • 

c -- 

-> 5Aji5Fy all oTi/rr? inputs usino outputs or spECTFiro ports 

srcssc 

&0 3tll 


420 

CALL POP ICN *n INPUT ,Um KPl »U0UT*NUDU7 ,OPORt ♦UPOR T , UCOHWN * NOCON * 

COUSSI 

COJOl 

IH 1 • 


J BLNK) 

COC553 

QG3S1 

l*i2* 

C — 

->. satisfy UPSIPfAH INPUTS 

IfGSSZ 

00 302 

luS^ 


CALL POR rCN «UINPUT,»:urNP7 t UDUT tNOOUT ,UPORT*OPORT ,nCOHMP.*HOCON» 

ccrK5 

CC3G2 

l*tn* 


1 UUfJ 

CCGS65 

CC5J3 

l*<l* . 


GO TO 56 2 


C'CiCs 

14 6* 

440 

UPOPT’LLNK 

C0C6D2 

CC305 

147* 


OrORT-P.UNK 

CCQ603 

00336 

140* 


ir< ipMRs .rcj . i lOO to i eo 

C0C6G4 

GC310 

14'>* 


call l7TpU(TCdM iINOCx ,phrs> 

ECJ6S7 

0 0 311 

ISu • 


1P|IRS = 1 

C3m61 4 

CC 112 

ISl* 


CO TO lei 

CGC61 6 

00313 

152* 

SCO 

rrCMOf'E .CQ.DICO TO 560 

CCZiZZ 

COIM 

1S7* 

G — 

-> RfCULAP CONNECTION POUT.TNC 

rx*:62C 

CCilJ 

154* 

C 

-> scan nOVNSTRCAK INPUTS 

CCL62C 

C'OilS 

155* 


00 54"^ 1 -1 tNUINPT 

CGCf 21 

C031L 

156* 

C — 

-> trsT if INPUT IS sATisncn 

CCC621 

0C320 

157* 


ir< KONST R (OTNPUT tl ) , 4 t IfBLNK, 3 >*NE*0>60 TO 540 

CCu63 3 

00323 

15£i* 

C -* 

SCAN upstream outputs 

C0o633 

CC322 

159* 


0 0 SP-T U-1tMJ0U7 

Cnc6S2 

C0322 

k:* 

C 

-> rrsT rop name matcu 

C20652 

C0 32S 

16 1 « 


If {KOPSIRJDINPUT f T 1 ,1 ,3,UflUTC J),l J.EO.OIGO TO 400 

C3C65 2 

0D327 

162* 

52 0 

continue 

CCU677 

G333I 

163* 

540 

CONT INUE 

5CG677 

00133 

164* 

560 

ir (Ncroi/ ,L C ♦Olupnc n UPI TE ,57 1 ) ucommm.dccpmm 

LCL677 

OD3H0 

165* 

57] 

rCrtPATi/STt^lJI *** WAPN1NC5 •** NO »A4,* OUTPUTS MATCH UNSATTSf 

'CS71 a 

{'G3*<CJ 

166* 


1 3 ru ' , A4 , * INPUTS " ) 

CCL71C 

oci^n 

J67* 

C 

-> STOPS UPSTREAM- input LIST 

LCw71 C 


16B* 


jr (Nu;npT .G7.C1CALL UP17MS{7,UTNPUT,NUJWPTprUC0MP 1 . 

CDC7 1 C 

GCiS3 

169 * 


irnujAc.Lr .70KO to tro 

CnL7i2 

003^6 

17:* 


'/Pl It IT nRITE , 601 n UINPU7 n 1 ,1 ,nuinpt j 

0CG74D 

CC333 

371 ♦ 

eol 

fcrpAK ' T‘:cop-i»f NPurs vnx,6Aisi ) 

SOL.7S2 

coim 

172* 


vj. T Tf flt/i’ IT r » » (r/OuT n 1 , j::l ^NUOUT J 

:CU7S3 

D:ifc2 

172* 

£C3 

f C^^PAH * iNrOH-NOUT V I 3X,6A1G1] 

:C^7f,5 

0C163 

3 74 • 


URIU TJVp] fl'iiNPim I 3 ,1-1 ,>fUJNPT» 

LC0765 

:C371 

175* 

£05 

roPl'Alf ’ INCOP-Cl NPUT VM>f,6A 101 1 

CG1600 



BCS 4G180-3 


C0372 17fc4 URJ rr {lURlTttBaTI fDOUTCI .NOOIJT) 

nOHCO 177* B07 FdRMATI* 1 MCOM-DOUT */ A IQ m 

QD<iaa 17P* C -— > TCST IF U€X1 PHRASE HAS SEETH USED 

CC^Cl 119* bCO IFITPHRS^CO.OICALL P^XTPHf ICO^I tlHDEX.PHRSI 

CCMC3 ifac* ftnuarj 

00H04 Ifil* CHO 3 DiCOH *4 ♦•**♦••♦** *4 *♦*4 


CO 100 a 

C0101*i 

COIOI^I 

EOlQl^ 

C01C22 

ecus I 



BCS 40180*3 



sut>ROuriNE ttHr rMTRy point oooi4« 

STOPDCe USED CODE 111 C0Q2D3; OATAIO) 000024; BtANK COHNONtZI COOQOO 


EXt'ERHJL RCrCRENCeS (RLOCK. M'AHEI 


0003 

STTHOV 

j 

OCOH 

I^WOLfV 


OOGS 

H101» 

1 

00 G6 

M102» 

i; 

tj0E7 

hi F. R3S 



SIPR«CE RSS16NHENT tBI.OGK. TYPE* RELATIVE LOCATIONt NAHri 

obco OOGDOT lOir OCOl 000022 1176 OQOl OOCIQ33 126G 0001 OOOOT6 1426 OCOl OOiQlOI 1506 

ODOl OOPD 4 Q 30DL 0001 000055 4DQL 0000 0 000002 BLflK 0000 I 000004 I COOO C00013 iNJPt 

0200 I OG90Q6 L OPDO I OOOQqS MO 0000 0 ODOBOQ X 


cGiao 

!♦ 

GtlHE 

CO0CO3 

CO IDl 

2* 


SUB POUT INE L INC ( HOOF » SOURCE ,I SOUR , TE XT t N , NT A PE 1 

CGOOQ3 

OClOl 

!♦ 

C 

PURlPOSE TO control THE fLOV OF SOURCE TEXT AND GENERA TC 

COG0O3 

DO 1 0 1 

«!♦ 

c 

GONTTNUES NEEnCD TO STAY WITHIN COlUHNS 1 - 12 

600003 

CGIDI 

5* 

c 

GALt SCOUCNGE MODE - rO>ErO -> «EW LINE TS STARTED BEGINING WITH 

0D0CC3 

:o lOi 

6» 

€ 

M0DE=1 -> TEXT IS SPLIT TO EIT EXACTLY 7-72 

C COCO 3 

1-n: 1 Ji 

7* 

c 

ISOtJR - next GHARftGTfR fOR VRITtNG 

C0GCn3 

:giqi 

e* 

c 

TEXT - new TEXT STRING 

EDQcaa 

0G1O1 

V* 

c 

N - NO. or CMARAGfERS TO AUD 

COuGCS 

GG i 3 1 

10 * 

c 

NT APE - FILE TO WRITTEN TO 

f.GGDCS 

0010 3 

l !• 


INPLIGIT noiSF.LE PRECISION lA-71 

rooDos 

00 104 

1 2* 


IMPUCIT INltGER U,J>K*L»HyN1 

D0&DD3 

roios 



DIMENSION SOUPCMBl 

IOC 00 3 

*0 ic& 

14 • 


DATA X712H X /,3LNK/12H 

cocnoj 

00106 

!!:♦ 

c - 

— > TEST rOR END OF L iNf 

C0GCG3 

com 

lb* 


IT C 1S0UR*^N*LE -731 GO TO 3'GQ 

CD 000 3 

ccih 3 

17* 


IFlMOnE .NE .Cl GO TO 

rccci Q 

CD 11 3 

18* 

c - 

-r> Ntv LINE nEOUlRfn 

. DCOCIO 

OG 1 1 3 

3 9* 

c - 

— > WRITE CURRENT LINE 

cn0(?l£! 

CGI I 5 

2-* 


WRITE INTAPE vl01 iSOURCiE 

DCO012 

CG12 J 

21* 

101 

rORPATIHAlCl 

CCL’D2S 

CO 12 3 

2?* 

G - 

— > GfNtRAir CONIINHE SYMBOL 

0CCG2S 

00124 

23* 


sounm Hrx 

L-cai:2S 

JC125 

24 * 


:nn 2‘M- i-2,8 

CGC033 

CCliO 

?r.* 

200 

SOlICCM I l = Bi NK 

C0CD33 

on 32 

26* 


ismui-7 

OnCG3S 

00 13 3 

27* 

300 

Cf>ll SI RHOV (TEXT tl .N» SOURCE. XSOURI 

OOGC4D 

rci 34 

2U * 


T SOUR- 1 SOUR *N 

OnOL‘4 6 

ecus 

29* 


RMURN 

uGOOSI 


vtJ S 

Cli 'Si 


BCS 40180-3 


8 


C0135 

3D* 

C 

•> H00E=1 split text betuetn curpent and ncxt line 

COOCB! 

C013& 

31* 

MOD 

NO-TS-lEODl 

CDOC5S 

GC136 

32* 

C 

> GD>^PLET£: GUf?RENT LI«E 

ooooss 

Q0137 

33* 


GULL STRHOVtTEXT^l tWO,SOURCE*ISOUR> 

co cos 7 

IjOIUO 

3^* 


WFITC (NTAPE ,101 ISOURCE 

C0L066 

r,Cl<ti6 

31 * 


soupcrrD-x 

toiioi 

POlkl 

31* 


DO <120 1=2,6 

UTCUT 

C.0152 

37* 

4?0 

SOURCf U >=PLNH 

000107 

:C152 

38* 

c 

> «0* CH'AiRACTTRS LEFT IN TEXT 

C00107 

CD lb4 

39* 


L=N-NO 

OGGI 1 1 

QG 15>4 

4 

c — 

> NEXT CHAR AC TER IN TEXT TO HOVE 

coon 1 

CGlbS 

41* 



£00114 

D0iS6 

42* 


CALL STRHOV rTFXTtNO,L .SOURCE,?! 

COL117 

LCis? 

43* 


lSGLrnrL-i7 

C-Co 126 

CRlbn 

4*< ♦ 


RFiunw 

OOCl 31 

r:ci6i 

45* 



000202 







BCS 40180-3 



i 


SUBBOU'TINC LISTSC ENTflT POINT DG024*I 


STORAGC USrO CDDttlT COC26S; OAT* (01 0DC177: BLANiK C0HH0N(2 ( 000000 
eONHON BLOCKS 
0003 CIO OOOOQ3- 


CKURNAL KFTCRENCES (PLOCK, NAME) 

OCO«t BIAONS 
OPOS COkOAT 
0006 f.tTT 
DJ07 CM COO 

0010 M.PU1 
3011 mo?» 

C312 NtfiFIl 


SI0RA6C ASSIGMPETIT (BLOCK, TYPE, RELATIVE LOCATION, NAME! 

0303 OLOCbS 101 T GCGl 000322 125G 0001 000102 lAlG 0000 000076 621F QCOl C0C13O 6301 

OCCI COUISD 535L OCOl OODlTi^ 5M0L 0000 OOCIRD SR IF OGDO 000150 663r DCCO 0 CCPGR7 AIN 

3000 0 CeCC32 HLRK DCOO 0 OooCl3H HONE LOGO 0 000036 HTUO OGDO I DDCC.R2 I 0030 1 CC003 1 IPLNK 

0307 1 CCTOCS ID Qr03 O0C0O2 InlAC 0000 000157 1MJP» 0000 D DCCCOl TP 0003 OOQOCO IPEAO 

0003 0 OC 003 3 IV 0003 T 000301 lURITE 3000 I D3CDR6 J 0000 1 DOCOOO MAX OOCO I K03RS «1 

oaco 1 CDOLRR HO OPOC I DQQQIIS NT OCQO 0 OO'COSb OP OGDO 0 000051 OUT OOCO 0 COOORO PPMAMt 

OOCO D ccrcbo ST Dcon o 000053 tab OOCO p oooons taiile 




OOlOO 

1* 

GDloa 

2* 

;^Dioi 

3* 

C.VO 1 c l 

M • 

;:cioi 

5* 

LCIDI 

t* 

CO 101 

7* 

■'loia j 


■aDiai 

9* 

DQXQl 

ID* 

C Q 1 

11* 

UCIQS 

1?* 

ceioii 

ll* 

:cio7 

1*1 * 

f GilD 

is* 

:dii3 

lb* 

CC112 

17* 

Qcim 

IP.* 

DC 117 

19* 


CLISTSC 

sue ROUTINE L 1 ST sc tlCPKAXrCMPNTS, A INPUT, OUTPUT! 

C VERSION 2. REVISED OCT s 1976 

C PURPOSE PNOV70C A LIST Of STANOAPD COMPONENTS AND THEIR 
C INPUTS, OUTPUTS, AND TAPLES 

C GALL SEOUENCE Icf'HAX - NO. OF STANPAPO COMPONENTS 

C CI1PN7S - LIST OF STANDARD COMPONENT NAMES 

C AINPUI - WORK SPACE TOR INPUT NAMES 

C OUTPUT - WORK SPACE FOR OUTPUT NAMES 

IMPLICIT DOUBLE PRfCISlCN ( A-2 1 
IMPLICIT INTEGER U,J,K,L,H,N1 

DOUBLE pnrcrsioH ip,iv 
Com MON/ CIO/ TREAD,! WRITE,.! 01 AD 

DIHCNSION CHPNTS n 1 ,AIftPUT I II .OUTPUT (1 I .1 ABLEdOl 
DATA TBLHK/* •/ 

C LITERAL 'POOL’ TO SATISFY DALE PRCCS» ASSr.NHNT STHNTS 

DATA ‘-LNH/' •/ 

DATA tlQt;£/’l V.HTWO/*? 

GALL PEAnHSnB.PFHAMf,! ,12UPfNAht 


COOOG2 

CCC0C2 

CCCG02 

000002 

0GG002 

C0CC32 

C0DCG2 

CCCDD2 

0GCa02 

LO0CO2 

coarc 2 

C0GPO2 
CO DC 32 
G0LCC2 
rCGfl0 2 
L0U0D2 
L03U02 
000002 
QGDG02 


ORIGINAL PAGE IS 
OF POOR OUALprYi 


8CS 40180-3 





I' 


8 


ZDiZU 

2C* 


WRJ7CfIU41Tr,lQl) P FN A H E 


GCDOlO 


CO i 2 3 

21 • 

101 

FORKATUXI 1 OF STANDARD *,A10»* COMPONCMTS* » 


0D0D22 

i- . 

CC123 

22* 

C -- 

*> SCAK' STO* COMPONCN7S 


00002? 


DO 124 

23* 


no 56i': 1 = 1 rlCPrtAX 


C0C022 


GO 127 

24 • 


URITCe6,S2l JltCMPNTSnJ 


C00C22 


reus 

ZB* 

52! 

FOP‘-AT*///lS7,*COKrOKCNT 7iO.«aT3t* WAKE = •,A2// 


DCjJT 1 


OC153 

*6 • 


1 3*, • JUf'UU • ,B* , 'OUTPU rs* , 16*. 'TAPLES*/ 


COL331 

- 

0CM3 . 

27* 


22 i* lUhC PORT “U* UAnC T»OP* VAR, MAX. D*TA*I 


DCL03 J 


L' u 1 3 5 

Zf'* 

c — 

-> or? iNcin tOIuput pAC'O iAf.Lt wahgs 


000031 


CQi 34 

29* 


CAU ror^A 1 ifMpv T s n 1 , iphiupt fVi » ainpot i 


:t.063 1 


CLilb 

3C* 


CAL L COHiiC. T f CMPtvl 5 1 M , 1 2H0UTP t NO ^ OUT PUT ^ 


000041 


DGl 3b 

33 • 


CALI rtiMOAl tCMfM,‘TS n I t 12*1 tabs .MTtTABLri 


LOliLS 1 


CCl 37 

S2* 


M AX = «£ X C- < N*i ,JiO,NT J 


0PGC6 1 


c r 1 3 7 

3 3* 

c 

SCAN LCNCFST LIST OF NAMES 


COLCM 

■f 

:0 143 

34 • 


00 56^ J=1 , ’’AX 


COC07 3 


n 1 u Q 

35* 

c -- 

-> fLAKK NAriLS 


CCLC7 3 


CC143 

3f- • 


A 1N=&LNK 


LCJC102 


2CIH4 

37 • 


OIIT=Pt.NK 


CnGlG4 


JO 145 

3B* 


TAOriilNK 


LC2J05 


CCJ4 6 

39 • 


7 0= KM NH 


C00106 


GO J 4 7 

4C< 


TP = r U K 


cot^nc 


c 1 Si a 

4 1 ♦ 


Or=I»LLK 


cnQi 1 1 


1,3 IB 1 

42* 


1V=PU:k 


CCGl 1 2 


JO 152 

43* 


S 1 = L L *:K 


IDCM 3 


CD153 

44« 


IF iJ.r.T KJI »no TO 530 


COCl J 4 

: 

JC15S 

4 5* 


A JN=ATNPUT! J1 


GC0120 : 


ZCISL 

46* 


CALL CtIT<AlN,9,IP> 

01010 

C06J22 


C0157 

47# 

530 

m j.ni .00)60 TO 535 


GCil 30 


:o 161 

4 R* 


OUl =DUTPin c J ) 


cool 53 


DC162 

9 * 


CALL CL f T fOllT .9,0P » 

0104 0 

C00135 


r 0 1 6 3 

SC* 


CALL r £ T 1 fOlJT t iC,5 T 1 

01050 

CC0142 


CD164 

51* 

535 

ir f J.ni ,NI )G0 TO 540 


LDC15D 


LC166 

57* 


7 A6 = rABL t i J 1 


0001 5 3 


CC166 

S3* 

G -- 

-> on table; dimcmsioh 


0GG153 


LC167 

S4* 


cni r-L icoo f 5 . TAD , ini 


LOOlSS 


001 70 

55* 


I v = ll K'O 


cnoi62 


CC171 

56* 


TFT JO.LT.OIGO TO S4D 


0G0164 


LC173 

57* 


IVnUiLC 


COL167 


CCJ7M 

SB ♦ 


IC=7A0S< JO) 


cnci7i 


CCJ75 

5 9* 

540 

URI TC n vRI TC »54 1 ) A JN,7P,OUT,OP,STtFAB,IV,jO 


CCUJ74 


0CV07 

6C* 

54 1 

rnnMAn?X,A6,AUgX,A6iAlt nt,Al *7X,A6*SA*A1,9X*I3| 


LOL22C 


OOilO 

Cl • 

56 G 

GONIINUE 


DruP2Q 

t 

co:i 3 

62* 


WRJ TL eiU»nE, 563 1 


:CC22C 


noziB 

63* 

563 

rOPMAMHU) 


CCG225 


C0216 

64 • 


prniRN 


LCl225 


0DC17 

65* 




CDG264 



StlPROUTlM NAH'ARY ENTRY POINT OGO?37 
STORAGE WSCD GOOEMT ;0DQ?56; O'ATAiai 000100; BtANK CONHON(?l GOOOOO 
CXTTPKiJL RCFERENGtS rOllOCKf NAME I 


3 003 

tlMf 

OOO^i 

NNCOOl 

□ GGS 

NRFWS 

0006 

N:I02T 

Q007 

riprus 

tJOliO 

Nwniii 

con 

K1 03 1 

0012 

NC RR 3S 


storage 

ASSl'CNHCNt 

reiOCK, TYPE 

» RELATIVE 

LOCATION, NAME! 


aoDO 

oorc-oo 

i?5r 

croi 

000115 UCl 

3000 OOOOM'A 

12 IF 

jnci 

Qicrcfro 

13'*+G 

□noi 

000163 162G 

ODGO 00005*1 

20 IF 

acco 0 

nrec:;26 

hoata 

OG0C I 

000037 I 

GOOD 000065 

INJPI 

::ooo I 

tit Pi 15 

IS TOP 

DGOD I 

DQ0G31 J 

0300 1 0G0G32 

K 


aeon o ccddoo soupcc 


OCOl 0Q0022 1210 
OODD n 00002G ANAMC 
OCOO I 000036' ISOUR 
□DOG I DG0030 NEXT 


OCCO COCqSo 
0000 0 C0G024 p.tNK 
OECiO I C0DGJ4 1ST AR T 
CCGD 1 100033 NIO 


POIGO 

!♦ 

CNAHARY 

cooooo 

COlOl 

2A 


SimPOnT lNE WAftARY CCNA MC ,NCMAR ,N pKUNITI 

CGOGO'D 

001 01 

3* 

C 

VERSION 1.2 REVISED AUG 22 1975 

CGCGOO 

CQIQI 

4* 

C 

PURroSr FORM A DATA STATEMENT THAT CONTAINS A GIVEN LIST OF NAMES 

CDODDQ 

COIGI 

5A 

C 

CALL SEOllENCE GNaME - NAME OF ThF ARRAY To BE ir4XTlAUl2ED 

LCOaOD 

:diei 

6* 

C 

NGMAR - NO* or CII^ARAC TUPS IN ARRAY NAME 

CGuGOD 

rrlQi 

T» 

C 

N - NO* or NA^^r5 TO GE rLACED IN OATA STATEMENT 

COOLOC 

OETOl 

£♦ 

C 

NUNTT - UNIT CONTAINING LIST OF NAMES 

roucoc 

CGICI 

9A 

C 

DESIGNED av J*D. RURROUrilS HAY 1974 

CCuGOO 

GGIG3 

10* 


IMPLICIT OOUrvLC PRC Cl SION IA-21 

LOLnCC 

uOlQN 

11* 


IMPLICIT INTEGER n,J»K,L«M.NI 

C0QEL3 

TGIQB 

12* 


DIMENSION SOURGECBI 

GOOOCD 

roic6 

13* 


DIMENSION A NAME (21 

COUOOG 

uDl07 

m* 


niATA A14AME /24H 

EUaCQC 

con I 

15* 


DATA l!LNK/l?H ,MDATA/12K DATA 

cooaoc 

OGJIl 

16* 

c 

> TEST FOP fMPTY SET 

LOGOGO 

CO 114 

17* 


IffN-LE.CJ RETURN 

CCGGCjD 

EOl 16 

Ifj* 


RE WIND NUN IT 

CD LOGS 

CO lib 

19* 

c 

CALCULATE the NO, Of OATA STATEHENI EXTENSIONS REQO, 

CClOOS 

0011 7 

23* 


NEXT- tN~ll/ 108*1 

CGuC]l C 

^0117 

21* 

c 

SCAN OATA STATEMENT EXTENSIONS 

r:oLCii G 

LG123 

22* 


DO *iCO J- Ip NEXT 

C 0 Lt Q 16 

i.G12o 

23* 

e 

extension counter 

cccoi t 

0012 3 

24* 


K-j-l 

E.0D022 
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00123 

26» 

C 

NO. OF CHARACTERS PER EJfTCNSlON 

00UC22 

GC12H 

26* 


Nl!Drl2*«W-K*lGSI 

0GDD25 

00124 

27* 

c — 

LIMIT NO. OF CHABACTERS PER DATA STATEHENT TO 1296 

coao2S 

J01?S 

2 c* 


1 T I N 1 0 . C T . 1 Z 9 6 » N 1 P = 1 2 9 6 

Goonsi 

TG12S 

2S* 

G — 

cue. FIRST AMD LAST WORD IM LIST OF DATA STATBKEMT 

G0C03 1 

roi27 

30* 


ISTARTrK*136*l 

DQD037 

ccno 

51* 


lS10PrlSTART*Nl D/l 2-1 

CC034 3 

GD133 

32* 

c — - 

-> Gfr.tn^TC DATA STlTDMENT 

0n0G43 

G0131 

33* 


SOUPGrt l 1 “HOATA 

TUl^OS 1 

DC132 

34* 


lS0UR'i2 

CCCCS 3 

CO 135 

35* 


no 100 i=:2,a 

CG0D6C 

CG 136 

Zb* 

100 

SOUPCf 1 1 1 =DI.NK 

CCCC6C 

C-01 56 

37* 

C - — 

►> LOAD ARRAY NAHL 

Lcceec 


36* 


CALL 1 INI tCtSOUflCT 1 1 SOUP , CM AHt « 9 1 

CO 006 2 

noi 43 

ZV* 

C - — TEST IF DAT* STATTMCNT EKTENSIOH IS REQUIRED 

LHlC62 

Q0141 

qn* 


iriK.LX.GlGO TO 11 D 

OCGC72 

COiHl 

4 1* 

C 

CMCOOe DATA EXTLH5I0N NO. 

CCJCT2 

^0014 3 

42* 


E'Ncntii;(2,iari,KiK 

UOCDTS 

0014 6 

43* 

105 

F0RHAU12I 

CCD104 

00146 

44 * 

c 

AOn EXTENSION NO. TO DUHWY ARRAY NAME 

CCD 109 

'J0147 

46* 


call uni: (D ,5QUJIGF tlSOUOtH ,2, 9I 

000104 

OGISO 

46* 

110 

CALL 1 lKMa,SOUficr ,TS0UB,1?H/ »I»9I 

cool IS 

uCl5l 

47* 


EL’COnriq ,121 ,N10IN10 

000126 

CG164 

4 El* 

121 

roRHAin 4 1 

CG0136 

CO 15.4 

H'i* 

c 

-> lOAO NO. OF CHARACTTRS IN DATA STAIEHENT 

000136 

LEISS 

so* 


CALL LINF C, Source, IS0UR,N1D,R,9» 

600136 

LD1S6 

51* 


call LINEIO, SOURCE ,ISPUB,12HM .1,91 

cool 4 6 

GG156 

52* 

c — 

-> SCAN flAE^CS 

000146 

LQ157 

S3* 


AitArjtfii ~ THtm 

C0D1S6 

C0160 

54* 


ANAML 12 1 = PLNK 

CDC16C 

00161 

65* 


no 20C 1=ISTART.I5T0P 

600163 

00164 

5 (* 


Rf AD iNUNH , 125 ) ANAHC ( U 

CC0163 

:0167 

57* 

125 

TORKATUUl 

0001 7 c 

CD167 

5n* 

C — 

-> LOAD NAPES INTO ‘DATA STATTMTNT 

CQC170 

roua 

S9* 


CALL LJriL MfSOURCEtIS(lUR,ANAHC, 12,91 

cnciTc 

CD171 

6C* 

200 

continue 

fr-upoi 

DC 175 

61 ♦ 


CALL Llur « 1 .sooner , 1 SOUR, 12H/ •1*^1 

^2070 1 

00174 

62* 


UfMTE 19,201 ISOURCC 

roozj 1 

GD177 

63* 

20 1 

fOEiHAUEAlOl 

CC022 3 

CC^03 

64 • 

40d 

GCE/TINUC 

LOr.22 3 

DC202 

65* 


RCTUUN 

OG0223 

DC:'05 

66 * 



CCC-255 
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SUPnOUTIWC NAhGtW C^♦TPt POINT OD3D60 

STOP«GC USCO COOEflJ D00073 : DATaCO) OOOOIM; BLANK C 0«H0NC2I OOOCCO 


EXTERNAL RtFCRENCES C&LOCK* NAKE » 

0CC3 STRmoV 
DOC*< KOPiTR 

ODO*> rn Rk3s 


storage ASSICWNCnT IBLOCK, TTPE, PCvATIVE locatiom, HAMF» 

aoca D cccccD plnh aooa i oooooz i ooao cocQio injps ood^ i oooooo Konsin 


OCICO 

1* 

cwaholn 

CDOCOC 

-0101 

24 


SUEfiOUTIHt SOURNH.COHM *(1,0UANAM) 

COOGGO 

ODIGI 

3* 

c 

PWRPOSC srHERATr UMIOUr WAKES rOR all moocl variablcs parahcters 

cnoooc 

rotoi 


c 

CfetL SCOIIEHEE SOURWM - SPUnCf KAMC 

CDOSDO 

taioi 

s* 

c 

COPNAM - COKPONENT NAME 

C0CCC2 

r;DlDl 

fc* 

c 

OUAnAn - OifftffTlTy NAKr 

CCDOOO 

CC-1J3 

?• 


IMPLICIT POUPLC PRCCTSION fA-7) 

CaCCEC! 

c 

R* 


iMPlICn INTf.GCR ntJ»K»L,H«Nt 

CCDCCC 

-QIOI 

•f* 


DATA PLWK/l?*l / 

C0DC2E 

VCIOS 

10* 

c 

> TRANSrCf? SOL'n^.- S^AHC TO OUANTIfV NAME 

lcdclo 

roioT 

\l* 


OUANAH=SaUR»H 

!(. 0 IJ Lj- W C 

rciD7 

12* 

c 

> add COMP^ MAHC to col. H TO 6 

CCaPGD 

LOllQ 

IZ* 


CALL STHMOy tCOilfJAM , 1 ,3 tOUANAH »M) 

LG JOG 1 

OCllQ 

IM* 

c 

ICST COL. 9 FOR PPR J NUMBCR 

COoCOl 

;:cni 



If (KOMSTR t QUAK'AH ,9 , n Pt-NK , 1 K C 0 . 0 ) R f TUR N 

l^CGCl D 

com 

1 i* 

c 

> TEST If COL. 2 OP COL. Z IS TO BE USED FOR PORT NO. 

LGLM C 

C0U3 

11* 


1-3 

cnonz^t 

rcu4 

IP* 


IF t«OPSTH (QUA NAM, 2 , 1 , Tl NK , 1 1 . CO . 0 II -2 

CCCC’ t 

ZZUH 

l^t* 

c 

> PLACE PORT NO. IN COL- 1 

icucit 

C 0 M G 

70* 


CALL STPrt.0 V ( OUANAM ,9. 1 .OUANA*! , I 1 

cr-Lp9 1 

con? 

21* 


return 

ccLC'Sa 

roi20 

72* 



L0li072 
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SUPROUTINt NCWCOM tNTRlT POINT DD0266 


STORAGC USrO COOC Tl) COOJiti*; OATACDI O'OOOSZ; BLANK COHMON(2) 003C0S 

COHHOK (ILOCKS 

0001 CIO D0DQ03 

0004 C5tO D00003 


CXTCRNAL RrrERCNCCS IBLOCK, NAHt 1 



r c rnufl 

2 306 

GCTCOO 

00C7 

PUTCOD 

02 10 

K0MS7K 

OGll 

comoat 

UOl? 

PL ^UhS 

001,1 


00 14 

N1024 . 

0015 

ME>^n3s 


S10RACC ASS1G.WPENT iPLOCK, TTPE, RELATIVE LOCATION, NAHE> 


OCOl 

OlDCSO 

1230 

QO01 

nOGD67 

2 nGL 

OOQ1 


GDC130 

22 CL 

0001 


000143 

30DL 

OCOO 


CCC0I2 

30 IF 

ODGl 

0G0U7 

400L 

OCDl 

00 0222 

4 2DL 

DOQO 

D 

OODOOO 

iMtJPT 

ocoo 

0 

000002 

HOOTP 

OCCO 

0 

OC0004 

M77? 

DOCJQ 

3 racuiQ 

I 

0003 

OODC02 

rni ag 

DOOG 


000035 

TNJPS 

0003 


oocoqo 

IRC AD 

OGDO 

I 

000007 

isyhb 

□ 003 

1 CLCUOl 

I U R IT E 

oniD 

1 OGOOGD 

KOMSTR 

ODoa 

I 

GCGOLI 

LN 

OCQO 

1 

0000 06 

LOCNO 

0GD4 

1 

ccoooo 

MSCO 


0004 0 00 0001 sroA 


C01G3 

!♦ 

CMCWGOH 


cocon 

i-DlOl 

2* 


sitnrouTiNC 

NE WC OHI COM NA M .C MPN T S » I CO MP t ALO C , C MPM OD ,NOCOfiP • 

:occi 1 

COIDI 

3* 


1 AINrn7,^IMPUT , AOUT ,MOUT ,ItlG01 Pi 

CDLOll 

DO 101 

M* 

C 

VERSION 2. 

RCVTSCO JAN 1976 

Local i 

PDini 


C 

PURPCSr IHTRODUCC NEW C0MP0NrN7 INTO ECS MODEL 

CCLCl 1 

'JO 101 

6* 

c 

CALL SCO HE MCE 

CflMuAH - COMPONEfn NAUf 

CDGCl 1 

LCIGI 

7* 

c 


CMPN7S - L1S7 OF 57TU CGMP, NAMES 

Lpcai 1 

COIOl 

R« 

G 


ICOHP - LOCATION nr STD* COPP. NAME IN LIST 

LG cm 1 

DC 131 

9* 

C 


ALOG - component LOCATION NO. 

roGoi 1 

CGlOl 

16* 

G 


CHPMOO “ LIST OF GOMP. IN CURRENT MODEL 

Lcaoi i 

0 G 1 0 1 

11* 

C 


nocomp - NO. OF COMP, TN GUrrENT HOOEL 

ECG31 1 

itDlOl 

12* 

c 


AIMPUT - $T0. NAPES OF INPUTS FOR COflP, 

LCuDl 1 

:cioi 

13* 

G 


NINPUT - NO. Of INPUTS TO COMP. 

CODCl 1 

:-Gici 

m* 

C 


A0U7 * STOp napes OF OUTPUTS FCR COMP. 

CGCul 1 

: □ 1 D 1 


c 


N0U7 - Nfl- or OUTPUTS FOR CGnP. 

toizi 1 

30101 

u • 

c 


IDCOHP - COMP. NO. IN CURRENT KCOCL 

LCOCl 1 

LD131 

17* 

c 

OiCSir-NEO BY 

J.O.OURPOURUS DATE JULY 1974 

CCJOl 1 

C01C3 

16* 



IMPLICIT OOUPLC PREC75TQN (A-7) 

COLO] 1 
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DO JOH 

n* 


JHrLTCTT IWTEOCR M«JtK»L,K«Nl 


COOCJ 1 

CD1U5 

20* 


COHHO‘1 /CT0 21r>CliO» 1 tf«I TT , 1 0 1 1 O/CSfO /MSC 0 . 5tO Al 1 1 


COCOl 1 

C0106 

21 * 


OIHE NSlon C^'ftNTM I > » CKPHOn C!l>ATMf>Utll»fAOUTUI 


60001 1 

cciot 

22 • 

C 

literal tool* to s^Tisrr octr -RREcsn 


CO DC 1 1 

LG107 

23* 


data hi nr t / 1 2h If / p t /, h out p / 1 2 hoo tp 


COCOl 1 

i- C 11 2 

24 t 


DATA »t7?7/l?H7Z? 


CDCCl 1 

r'C 112 

25* 

c > COl;Vf f?I I.OCATIDI/ no. T3 OH IIOL L Oni T>1 fO iNtCCtF 


CCCDl t 

GC114 

26* 


CALL I'COUUM (ALGC,aIOC> 


CDUOl 1 

011'^ 

27* 


LrcrozALOC 


rccGi 5 

;cns 

?e • 

C - 

— > CM SYP.prM no. rop conponniT and put in location ^ 

6CL31 £ 

r.cno 

29* 


call r t UoO t tCPPUT S( TCOMP » ,I STHP 1 


LCCC23 

C C 11 7 

jr* 


C A1 L PtJU Of] t 4 IS VHP J 


60C032 

cent 

5 1* 

c - 

— > 1T6T IIIAT 1 PR POF^r COHP. EXIST IN MOOCL 


6G0C32 

rC123 

32 * 


If 1 NDCOHP.l r . D)60 7 0 2 00 


once 3 7 


33 * 

c 

— > SCAR ^YrSTTRCi COftPS. IN ttOCEL 


C;GCG37 

r.ci?? 

34* 


00 lor I liRncopp 


LCCP4 2 

c n ? 2 

36* 

c - 

— > TE6T TUff Nf« COPP. NAhC T5 UNlOUf 


C0CC4Z 

f!:i25 

36* 


in K6P6IF. tnM'P/jot rill, 3 »cdmrah, i i.to.cico to jco 


COLDS C 

QC 127 

3 1* 

100 

CONT iLUf 


C0uC67 

lC »27 

3h* 

c - 

— > My OAKf IS UJMDUf 


C0CC6 7 

rci2 7 

3 9 • 

c - 

— > 61 r 5IU. inPUT list fon cohp. 


CCCC6 7 

UDUI 

40* 

200 

CALL f OftOA T K CNfiA'SM J6PT ,N1 NPU? INPUT 1 


00606 7 

cot 31 

4 1 *r 

C 

— > Mill LOC. NO. and UO, or INPUTS TO COMP, NAtlE 


L0CO6 7 

re 1 5 2 

42 * 


C/LL HjTf.Cn 1 ifCCMMAN.LOCNOI 


106674 

DP 1 3^ 

4 3 • 


CALL ftUTTttHS »f:6M0A*l,N INPUT 1 


irocio ! 

ocni 

44 • 

c - 

— > MJVAMCE COhP. COUNT 


LDCiai 

CCI3H 

4 6* 


t;ccortP::Nricopp » 1 


6P6M6 

Cu J 3H 

46* 

c - 

-“> AfUl Nrw NAnr TO KOnru comp* wahc list 


D0JID6 

aoi i5 

47* 


c KP Maui NOT or^r-- Kr oMNAn 


CUOl 1 1 

GCUS 

4ft * 

c - 

— > At 6 COMP, NO. TO COMPONENT SEQUENCE LIST 


rocii 1 

Cr 1 36 

49 • 


n:[:a = Mt c • 1 


UOD! ] S 

C t 37 

5 :* 


CALL PUTcCOINSrOtSCOA .NOCO hFM 


CDD t ? 6 

CUMO 

61 * 


r UC onr ; NLLOPp 


60612 5 

tr tno 

6 2* 

c - 

— > CM iisr or STD. outputs 


cocins 

:ic J 4 1 

6 3* 

220 

CALL rOPriA T ICMPNITI jeoMPi ,|COUTP *MOUT , AOUT ) 


COD 3 36 

Lcm2 

54* 


priuRu 


LUCl 37 

C0U2 

66* 

C - 

— > HST IDCAMOM NO. FDFi COMP, THAT HAVE RECElVEO 

INPUTS BUT H« 

6£?ul 37 

CCIM2 

5 6* 

c 

hi 1 N fii F J Nrn. 


cot 1 S 7 

ar u<3 

6 > 

JOD 

Call ct t con t 3 , cpr»»^on < j ) ,ln j 


6DL143 

er M 

Oft * 


ir a r,.u ."jr.o to 4 00 


urctS4 

0014 6 

O'-J * 


vn Tr iivpi ir , isneoPNAM 


6061 S f 

.-am 

6 6* 

301 

f Of'VA [ l /6Y M6ir • * WANUTNO f • ♦ COHPONCHT , A4 , V S 

»t»r*D» ertN 

CCU6S 

r- D u 1 

6 J • 


1 crri’.LOM 


LfiCl 6b 

i: C H. 2 

6 2* 


001047^ 


606165 

.riL2 

63 * 

C - 

— 3 A!iU LOrAlfCJN no. TO COMP, name 


E3U 66 

0 0 16 3 

64 • 

4G0 

CALL PUT r fifi t 3 fCPpMOn ( 1 ) jinCNO } 


60616 7 

LOJ63 

bO 4 

c - 

h'U SYpruL NUMf'.ri? TO rDHPONCNT NAME 


CD6 16 7 

3C 1 64 

66 * 


CM L T-UTT 00 1 H (I 1 , ISY‘1U J 


cncro 1 

CO 16H 

67 4 

c - 

— > AFO CCMP. NO. 70 COPPOnrNT SEOUENCC LIST 


LCCZO J 

:C163 

6P » 


nsr orT.r o ♦ t 


CQl21 I 

jC 166 

6^4 


CM L M) TrDU (NSfO * r L Q A , I J 


CC t ?l 4 

OU6 7 

7:* 

4?0 

rClMNAP-f. Mf'MOU ( I 1 


60L222 

CO 167 

71 * 

C - 

— > lit 1 ur?. or 1 jfPUIS 


6CC’?2 

C J 60 

72 4 


CALL TM f MJ 1 S OMN AP,?M NPim 


L0L226 

60 1 6'J 

7 '4 

c - 

— > U \ 1 NPIJI t 7 s T roOM r TLf 7 


i.rc2?6 

orwi 

744 


MUnn { 1 1 : H -V 2 


LDu2 33 

0C162 

7f • 


1 r tN TOF U T .6 I Mj > f.AL 1 M Afms t 7* ATWPUT .NINPUT, 1 1 


C06235 
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S 2016** 76 * incoMPrr coo2«ie 

r0l65 77* BO TO 220 C0025C 

CClbb 78* tND a NCUCOH ****•***«*•*****•**•***•* COOlbS 


“* O 
>■ 3 

'■o ^ 

M S3 





03 

O 

w» 


SUPPOUIINI OROCR CNTHY POINT OQQ203 
O 
»-• 

00 

STORAOr USED COOtin OtiCZJR; DATArni ODOCZSf PLANK CONMON< 2 I COOCDC 

UJ 


EXTERNAL RErtRENCCS iBlOCKt NANCt 

OC50I UP IT 
00 C4 NETRSt 


SIOHACf ASSICNHENT (P.LOGK, TYPE « RELATI VE tOCATTON, NAME I 


0G31 CBC02J 11?'K 
0031 0CCC5<i ROL 
JSOl 1 COBCOG UP IT 
3000 1 tCCuOl NTU2 


0001 000031 1 ITG 

0001 000105 6 0L 

or 00 000006 INJPt 


0001 coot IN INTO 

0001 000123 66L 

0000 ' I 000003 as 


0001 00002N ISL 
DDOl 000132 TOL 
0000 T 000004 K 


OCOt 000043 SOL 
COCO I O0CO02 I 
0000 1 COOCbO NCO 


u.OlOO 

1* 

COROC R 

GDQDIC 

GClOl 



Stm ROIFT 1 NE ORDER IN V .ICO .A , INI , IU2 .lERROR. TB. ITI 

QDOOJ C 

roicfi 

3* 

c 

VERSION 1. REVISED AUG 4 IRTS 

CD CD 1C 

ODIOI 

*44 

c 

PURPOSE GENERATE A SEOUENCE VECTOR THAT REORflERS VARIABLES 

COCOIQ 

:ciar 

s* 

c 

SO that CONNECTION HATS IX IS LOWER TRIANGULAR. 

000010 

:ojai 

6* 

c 

gall SEOIIENGE NV - SYSTEM ORDER 

DOuOlC 

CClOl 

74 

c 

ICO - SEBUENCE VECTOR 

rocciG 

zcxoi 

E4 

c 

A - STSTEH CONNECTION HATRIK 

CiOCClG 

COl 11 

*?• 

c 

TUI - NTH ORDER VECTOR - PfiOCESS CODE 

CODDIC 

cm 01 

10* 

c 

TW2 - NTH ORDER VECTOR - PROCESS SEQUENCE 

CO COl c 

DOlQl 

11* 

c 

IERHOR - ERROR FLAG D = SYSTEM VAS REDUCED TO LONER 

cQcni c 

CG131 

124 

c 

triangular fork. 

ccccic 

rmol 

13* 

€ 

1 = SYsrrit CAN HOT BE REDUCED T 

C-DGClD 

.-ClQl 

1^4 

c 

TRIANCOLAH FORM 

COCCI c 

tGICl 

15* 

c 

IB - FIRST WORD IN 1U2 POINTING 10 LOOP COKP. 

C3G01C 

LOiOl 

K 4 

c 

IE - LAST WORD IN 1U2 POINTING TO LOOP COHP. 

OOOC-IC 

:cioi 

17* 

G 

DESIGNED BY F FATM JULY 1975 

coomo 

OGIDI. 

18* 


IMPLICIT DOUBLE PRECISION lA"2» 

CODCIG 

ceiQ*i 

I i* 


IMPLICIT IHTEGER (I .J.K .L.M.NI 

PGCOlC 

OP 1C 5 

2CJ* 


DIMENSION ICO 11 1 ,IUI 1 1 ) , IU2 11 1 « A « 1 ) 

CGCCIO 

:-mcs 

21* 


NCO = 3 

Cr3DlC 

C0K7 

12* 


lERROBcO 

.OCQl i 

C L i 07 

23* 

€ 

SET CLEMENT COUNT IN PROCESS SEOUENCE VECTOR TO ZERO 

COCOl 1 

C D 1 10 

2H4 


KTU2:D 

C00D12 

CD 113 

25* 

C 

IMITIALI2E PROCESS CODE FOR EACH ELEMENT TO -1 INO PROCESSl 

CQ0C12 

cGin 

2f 


DC IQ 1=1, NV 

0GCC21 

crim 

27* 

ID 

lUl I M=-l 

coor2i 

amiM 

2f • 

C 

Finn FIRST NON-PROCESSen ELEMENT 

LQCC21 

CQ116 

2<;* 

15 

DO ?Q 1=1, NV 

OCC02M 

C0121 

3 0*. 


in lU H 11 .LT .QlGO TO 30 

P0DD31 

C r 12 5 

31* 

2D 

COfiT IMUE 

000037 


►ti o 

sg 

Wp 

JO 1^ 

Is 
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OZ123 

32* 

c 

K *LL ELtMfHTS PBOCtSSCD, BETUPN 

000037 

CD12S 

33* 


PETURH 

CtOOCIT 

CCIZS 

3*4 • 

c 

PUT UOM-PBOCESiED ELEMENT INTO PROCESS SEOUENCC VECTOR *T BOTTOH 

CQCCJ7 

CC126 

35* 

30 

lfTU2-ni024 1 

LDCC43 

CC1Z7 

3 6* 


TW2 4KTW? 1^1 

0DCD45 

:ci27 

37* 

c 

%£^ Pt'ocrss CODE TO D (PARTIAL PROCESS) 

rCCCM S 

&GU3 

3f * 


*U 1 [ J i:s 

lacnsi 

GCIJO 

3^* 

c 

CHLCK FClIt DFPEHRtNCr OH OTHER. ELEHCNTS 

ccucFa 

DC n 1 

*4C* 


J!.'C 

GCCr-S4 

CSU2 

1* . 

40 

J5'JS*i 

C6CCS6 

*0 132 

m;* 

e 

If f.LL ELfP-EHT DEPEHOiHCICS CHECKEll, PROCESS IS COMPLETE 

CDLC56 

CCi33 

4<3 • 


ir( J5,LT .6V100 TO 70 

C0CG6C 

13135 

<1 *f • 


XrlJU n ( ^ » I , JS.NV ) 

C0uC6 1 

33135 

* 

c 

ir tio 6EPfJinAircc (k-c> keep looktmg 

LDCr63 

CCl 36 



ir(Kw0.'-16rjT040 

C06D72 

CO S 36 

*47* 

c 

ir element alreaot processed icont=ii keep uoowinc 

CDoDTl- 

CC136 

*4 0* 

c 

ir On ELEkENT not processed (COnE--l) star*! processing 

LCCG72 

CO 36 

* 

c 

OV lliM T Lf;^CNT . 

C06C72 

ccn6 

50* 

c 

IF OtPfMUfn ON EtCMOn PARTI ALLY PROCESSED ICODL'D) SEODEHCINC 

CGCC72 

cn i6 

51* 

c 

If. n‘r6.55i£UE, SET ERROR FLAG AND START ERRCP REPORT, 

C0U072 

rcmo 

52* 


Tf MUH J5» 153,6L%4a 

L0LC7V 

301*43 

53* 

50 

jrjs 

COOIDI 

roiMq 

£4* 


CO 10 37 

CDC103 


5 5* 

bO 

7f 

cocics 

OC 1^5 

56* 

c 

LttJK Ton JS IH luz. THIS IS n.EGIHlHG OF 0£PEM0*NT LOOP 

D30I35 


57* 


PC 65 1 ,N TV2 

CDClOfc 

: c iti 

Ofc* 


If n v: tK ) .EO. J3 >Dn TO 66 

CDOl 1*4 

CCIOJ 

59* 

65 

Cfij;il4;u£ 

1CC123 

OD155 

6t * 

66 

TP = K 

G00123 

CO JS5 

61 • 

C 

SET r^n OF LOOP pn INTER 

1CJI23 

00156. 

b?* 


If =NTV2 

f:DCl24 

CEM56 

6 3* 

c 

RETURN our TO EPROR 

C0D124 

LC1S7 

64 • 


PEI UPN 

CQD126 

rcio? 

65* 

c 

prccr'^s FOR element complete - UPDATE PROCESSED ELEMEKT COUNT 

LCt*l26 

caitD 

66* 

7D 

Lf r/-'rro4 1 

CDC132 

0C163 

67 • 

C 

SET SfOUfHCf VECTOR POSITION TO INDICATE ELEMENT 

coil 32 

^ClOl 

be* 


irofNf.oj-i 

GUC134 

COlfcl 

69* 

c 

SET P^ccrss CODE FOP ELEMENT TO COMPLETE fCOOEri) 

rCGI34 

CQU2 

71* 


1 1 ( I J r s 

CCC14G 

JQ 1 62 

71 • 

c 

DrCPE>-n?T PROCESS SEQUENCE POINTER 

CDCIHO 

0016 5 

7 2* 


IHi. 

03C144 

CCU3 

73* 

c 

ir ml pr.ccrssrn - pciupn 

Cr>C!4H 

oeitM 

74 • 


irnrCC*EC*NV>PE7URN 

CCL147 

CO iOH 

75* 

c 

IF Nn rUKC6‘T LEFT IN PROCESS SEOUENCE VECTOR, GO LOOK TOR fiRST 

LD014 7 

LClC^ 

76* 

c 

NON ssrD element* 

C0D1H7 

OOU6 

77* 


If u;iL7,ir *r>jro lo is 

CCC15S 

'ri66 

72 • 

c 

CO'MPUC PROCISSJNG 30TTOM ElEhEnT In PROCESS SEQUENCE VECTOR 

COjISS 

00 166 

79* 

c 

S/ULPE n WAS INTTPRUPTFO* 

CCC155 

:ci70 

£1* 


J5=l 

CC u 1 6 G 

com 

hi * 


I Ml-; fM - 2 1 

C2L 1 62 

ns I 72 

2 ; * 


CO 76 irC 

C0CU6 

00173. 

e T* 



CQ6233 


SUBROtlTlNC PORTCH ENTRY POINT DC02in 


STOfrUCE USED CODEUI CDD2^0; OATAIDI 0Q0O31; BL&NK C0N«CNf21 000000 

EXTERNAL RtFERfNCrS tBLOCK» NJ^HEl 

0003 K0P5TR 
DCO^ JJIIHCEN 
S3HK0Y 
□ 306 WtPfl3l 

STORXCE *SS16NKrnT IBtOCK. TYPE, RELATIVE LOCATION, NAMEI 

0001 CGC0fc2 lOOL CDOl 000015 1120 DOQl 00013R I2CL OGOl 000065 125G OCOl OaOlAD MOL 

3C01 C0ni67 200L QCOQ 0 OODOGO BLNX 0000 I O0DOO2 I 0000 ODODll INJPS OCuO I C0C003 J 

0003 I OGCCGC KOMSTR 


nOlOO 

!♦ 

CPORTCN 

cDoais 

COICI 

2* 


SOB.ROIITIWE PORTCH 1 A IMPLTT.NXNPUr, OUT PUT, WOUT, IPOBT ,OPORT , OUTN AN , 

tocois 

COlOl 

3* 


1 . NOCON,STREAHI 

OOOC15 

0C131 

*1 ♦ 

C 

PURPOSE CGHNECT ALL MA7CMIHG PHYSICAL OUANTitlES AT SPECIFIEO 

coco J 5 

nciDi 

5* 

C 

PORTS OH TWO COHPOHEMTS. 

coccis 

CGIGI 

6 « 

c 

CALL srouCNcr aihput - input quantity hahe list 

rneois' 

CO 101 

7* 

c 

HINPU7 - HO. OF INPUT QUANTITIES 

COCCI 5 

CDICI 

e* 

c 

OUTPUT - OUTPUT CUAnTITY NAHF LIST 

CD GDI 5 

: 0 1 0 1 

V* 

c 

NOUT - NO. or OUTPUT QUANTITIES 

CDCClS 

lOlDl 

10« 

c 

IPOrtT - INPUT POPT S'O- 

CCLCl 5 

COiOl 

!!♦ 

c 

OPOflT - OUTPUT PORT NO. 

COCOl 6 

CClOi 

12* 

c 

OUTNAH - OUTPUT COUP. NAME 

COCG I 5 

GGlOl 

1 3* 

c 

NOCON “ NO COWtCTlON FLAB 

oconi 5 

:oioi 

IH * 

c 

SI RE AH - SOURCE TUOICATOR. BLANK = UPSTREAM SOt/RCE 

COODl 5 

C C I D I 

15* 

c 

0 = OOfcii/STPEAH SOURCE 

COCCI s 

CO 10 3 

16* 


IMPLICIT POUtLC PRECISION (A-?J 

CGDCn 5 

CGjn^ 

17* 


IMPLICIT INTCnCf/ ntJ»K,LtH»Nl 

COOC! S 

00105 

Ifc* 


DOUPlE PprClGlOT. JPORT 

COUCIS 

f.ClL& 

19* 


0THEN5I0N A INPUT M J , OUT PUT ( 1» 

COCCI 5 

CC1G7 

20* 


OATA EtLNK/I2H 

JDCCi 5 

l>L1C7 

21 * 

c 

> scan INPUT LIST 

COCGl 5 

I'O J 1 1 

22 * 


DO 20C I = :,NlNf’Uf 

ODcnis 

rciii 

23* 

c 

> TEST ir INPUT IS SATlSrUD 

COCCI 5 

ociiq 

2M* 


TMKO^'STP r A INPUT M 1 . 1 ,p L NK » 11 .NF .UTCO 1 0 2 CO 

r.Oucis 

cicns 

21 * 

c 

— > bvpAis ponr irsT ir input is universal port 

LCUCI 5 

OCl 16 

2 t * 


3 r t KOPS HM ATNPUT (I ) , V , 1 ,PU.K , 1) .ro.P 3G0 TO ICO 

LDLrJC 

OCJi 6 

27 * 

c 

— > tYpAiis iiLT IF sprciriin port is universal port 

rcLCic 

l01?0 

2P* 


jr uproi .ro.PLNK JFo to jco 

3 

ZC 120 

2*i* 

c 

- — > COPPAPF PORTS 

rucu^3 

UG 122 

30* 


I r (KOPSIFM A INPU M I J ^9 » 1 , JPORT ) .UE *Q1G0 TO 200 

cccr^t 


BCS 40180-3 


a; 


D 0122 

XI* 

c 


••> SCAN OUTPUTS 

ODIZH 

3 ?* 

100 

00 2 20 J::i.NOUT 

DC 124 

33 * 

c 

> TEST FOR PHYSICAL OUANTIJY HATCH 

GO 127 

34 * 



I;F(KOMSTf?l AlNPUTCr 1 ,1 * 3 * 0 UT'PUT IJJ »1 l.NE*OtGO TO 120 

G 0127 

35 * 

c 


— > BYPASS PORT TEST If SPlCIFIED PORT IS UKIVEPSAL 

DDUl 

36 * 



irtOPORT.ro.BLWKl'CO TO I'JO 

GG 131 

37 * 

G 

* 

— > BYPASS PORT TEST IF OUTPUT IS UHlVEflSAL PORT 

CO 133 

3 H* 



If IKOt*STI»{OUTPUH JT, 9,1 ,DLMK, 1 » .EO.OCO TO 1 RO 

00 U 3 

3 9 * 

c 

- 

— > TEST FOR PORT HATCH 

oons 

4 C* 



If IHOHSIR lOIJIPun J) , 9 , 1 tOPOPT >1 I.CO«OICO TO 1<«0 

CC 137 

41 * 

120 

CONTI NLIf 

GC 14 1 

42 * 



GO TO 2 rci 

rci 4 i 

4 2 * 

C 

* 

— > SATISFY INPUT 

OC IH 2 

44 * 

240 

CALL NAttGE N (OUT PUT « J| , OUTMArt, A INPUT II 1 1 

ocm? 

45 * 

C 

- 

— > PLACE SOUKCf INDJCATOn IN NAME 

PC 1 H 3 

46 * 



CALL STRKav (STREAK, 1 , 1 ,AJWPUI 1 11 , B 1 

00144 

47 * 



NOCON - 1 

GC 145 

4 f* 

200 

GONt INUr 

UG 147 

49 * 



nETURN 

roiso 

SO* 





Goao««6 

Gacc6S 

L00D65 

DaCLi6S 

rc:;io2 
C 0 blD 2 
CTLlOS 
COL.105 
C0C12C 
C:00136 
C0(j136 
LGQ3 36 
CODING 
CQGl^ 0 
CDOIS 3 
CCiZXb^ 
C00172 
000172 
LOC237 



BCS 40180-3 


f 


! 


SUDROUTIWi: SCHtJU tKTRy POINT OOD5I2 


STORAGE USrO COOC U J 0D0536; DATAtO) 00JD26: DLAMK CftKMON<2» OQOCCO 

COMMOk fiLOGKS 

OOiCT CIO GODC03 

OOCH CTITLE COOC16 


tXrtRNAL KErERtNGES (BLOCK* NAWC) 


OPOS 

LKcrns 

0C06 

ST^POV 

0C07 

kOPSTR 

CP 10 

rtTCOD 

Don 

SY'^POL 

0012 

i-r AfvHS 

on 1 ? 

CCVtJCT 

3V\U 

f: J D?S 

00 15 

Lwnui 

JGi5 

Njnis 

ilClT 

tjinit 

0020 

tt RF.3S 


STORAGf AiSIONKCNT (BLOCK* TYPE* RELATIVE LOCATION* NAMC» 


UOCI 


GCDC05 

IDOL 

GOOi 


OOOQIS 

122G 

OOOl 


000017 

12 5G 

ODDI 


C0003** 

136G 

occo 


CD27JD 

1 3 9 r 

DQQI 


0CCG76 

156C 

ODDI 


000063 

16 0L 

OGOl 


000223 

216G 

0001 


000337 

24 4 r> 

ocoo 


CD2711 

25ir 

COGl 


CCf?3«5 

252G 

OCOl 


00P202 

260L 

DOOQ 


002716 

26 IF 

0001 


000213 

3C0L 

DDG! 


COC315 

M2CL 

COCO 


0C?760 

A?3P 

PCOl 


0D040: 


CCDl 


ODDMIS 

M 6 GL 

OGDl 


OOCtllS 

4C0L 

DECT 


CDr**3b 

5CPL 

OODl 


ncr?H4 1 

6C2L 

CCOD 


002767 

6C5r 

onoQ 

n 

002666 

ASTftSK 

GCGO 

0 

002662 

E'LMK 

tCCD 

D 

CG7703 

ccr r.k^ 

DOuO 

n 

0C?6&M 

rORLT 

oroc 

1 

no 2 0 74 

1 

0003 

T 

rcojoz 

10 r/G 

OCCG 

D 

oaoccD 

IKCOH 

OCOC 



INJP3 

0UC3 


CCCGOG 

IRE AD 

:;rcD 

1 

002703 

3SYHB 

0003 

J 

PODDDl 

lUR UE 

OGOQ 

1 

0026TS 

J 

DCC7 

I 

EUPCCG 

kOrtSlR 

oGoa 

1 

0C?t.76 

loccol 

C PG C 

I 

0026 73 

LOtL 

GOOD 

T 

032677 

LOCNQ 

0000 

r 

n02 702 

LOCp*G 

DECO 

I 

CC267? 

LfK 

ODOO 

1 

LL2670 

KAXPAG 

DGOC 

1 

002706 

HOFfr 

Dono 

J 

002707 

NA Pf 

GODO 

I 

□02704 

hINPUT 

DCcO 

I 

002705 

NOIN 

DCQO 

I 

CL?671 

NPAOC 

DOJD 

D 

000002 

page 

OGO«I 

D 

DDCQOD 

rruE 










DOlOO 

!• 

CSCtlEWA 



C0CCQ2 

30 ICl 

2* 


SOOnOUTl NE SCHEMA (CMPMOD*NOcO'MP *IMPUTS tNAPES ) 



C0G0D2 

CClOl 

3t 

c 

VERSTOH 2* REVISED SEPT 10 1975 



roccG2 

iTClGl 


c 

PURPCSE pRODjCr A SCHEMATIC DIAGRAM ON THE LINLPRINTER 



rooco2 

LOiOl 

59 

G 

OF THE ECS MODEL 



rOCC32 

COlOl 

69 

c 

CALL SEOULNCr CHPMDO LIST Of COMPONENTS IN MODEL 



CO coo 2 

:.nDi 

7* 

c 

NOCOMP - NO* OF C0»^P. TN MODEL 



CCCC02 

COICI 

n* 

c 

INPUTS - WORK ARRAY TOR INPUT NAMES 



C0C0D2 

noiDi 

9* 

G 

NAMCS - UORK ARRAY ToR LABEL NAMES 



C3CG02 

UOJOl 

1J9 

C 

nCSIDNED BY J.D* PURRGUGMS JUNE J974 



D0LD02 










BCS 40180 








•sj 

to 


DC 10 3 

U ♦ 


IMPLICIT OOUELC POrCISION lA-71 

C0D0D2 

ccicq 

12* 


IMPLICIT 1N7CGGH 1 1 t J tK ,L ♦« ,N ) 

GOLOD2 

C0105 

13* 


DOtJPir PRCCISIOtJ INPUTSTNAMESf JNCOH 

rocco2 

C0106 

14* 


COMMON /CIO/IPEAD , IUPITr,TOlAG/GTlTLE/TnLE t 71 

DDL0C2 

CC10 7 

15* 


D1MENS3GM PAGE (13,56* ,CHPMODM 1 , INPOTSI 1 ] .NA MCSU 1 

C0CC1O2 

CEllO 

16^ 


fAIA PLNK/12N 7 , FOPL T / 12HP0R T 

DOGODD 

DO 113 

1 7 * 


DATA ASTR5K/12H******* / 

CDGC32 

OPUS 

16* 


HA){PACra 

COOD02 

lUllh 

19 + 


K'PACPrD 

CDCnC3 

ILilb 

204 

C — 

-> BLANK PAGE AND LOAD LOCATION NUMBefiS 

CGC^D3 

30117 

21* 

100 

LOK^NPACr 

cnoGos 

coil? 

22* 

c — 

LOCATION NO. LINE COONTEr 

D0CQ35 

10120 

23* 


LOCI =^4 

C020G6 

roi23 

24* 

C “ 

-> SCAN ALL LINES ON PAGE 

eauDD6 

CG121 

25* 


DO 160 3 -J , 56 

DDLOl? 

CC121 

?6* 

c -- 

-> BLANK ENTIRE LINE 

rouol 7 

03124 

27* 


DO 1 2C J-I ♦ 13 

LCCCiT 

r t: 1 2 7 

2B* 

120 

PACE f J, I 1 =PLNK 

CO GO 1 7 

UG127 

29* 

G -- 

TEST ir LINE CONTAINS LOCATION NUMBERS. 

CGGGl 7 

CC131 

3C* 


iriT.ll.LOGDGO TO 160 

i.QCC21 

00131 

31* 

C — 

“> INCREMENT LOCATION NO. LINE COUNTER 

G0CG21 

GO 1 3 3 

32* 


LPCL-1 OEL > 7 

C0CD2S 

GD134 

33* 


LGGC0L::-B 

DC GO 3D 

0 C 1 34 

34* 

G — 

-> SCAN COLS. AND LOAD LOCATIQiN NOS. 

DCC03 :C 

GO 1 35 

35* 


D^O 1 4 t J“1 , 1C 

0CLC34 

G □ 1 3 S 

3t * 

C — 

«> INCREMENT LoeATION NO* 

DD0034 

0.D140 

37* 


LOK-LOK+^1 

000034 

c:a 1 4 : 

35* 


LnccnL-Lr>CC0L*13 

GQCa36 

3C 1 4 2 

39 + 


ENC00r(4 ,I 39,L0CN0 ILOK 

CDJG4 1 

CQ 145 

4: + 

139 

FORMAT* 14 1 

C0CD5C 

0014 0 

41* 


CALL S T r?MO V 1 L OG NO ,1.4, P A GE ( 1 , 1 1 ,iL OCCOL 1 

CnCGSG 

30147 

42* 

140 

COUTJfiOC 

GOOL/65 

: Q 1 5 1 

43* 

160 

CONT i TJUr 

CGLC65 

:ci5i 

44* 

G -- 

-> PLACE COMPONENT SYMPOLS ON PAGE 

COCOAS 

r G 1 5 1 

45* 

G — 

-> TEST THAT MORE THAN 0 GOHP, EXIST IN MODEL 

GQGD6S 

CD IS 3 

46* 


IFINorOMF’.LE .D>GO TO 602 

C0CG65 

00153 

47* 

G — 

SCAN COMPS. IN KODEL 

CaCD65 

PCI 55 

4 6* 


no 3GC 1:^1 ,NGCOHP 

CrfLDTD 

G G 1 6 u 

49 ♦ 


CGHNAH'.CMPHOO ( 1 ) 

GCC076 

“DlfcO 

5 G ♦ 

G -- 

SKIP rORTRAN COMPONENTS 

CCCD76 

C0161 

51* 


IF(K0MST(?IC0HNAH,1 ,4tF0R=LT,lJ .EQ.DIGO TO 3Q0 

L 0 u C 7 7 

U016I 

S?* 

C — 

GET LfiCATTON MO. FROM COMP. NAME 

C0GD77 

G 0 1 b 3 

53* 


CALL GL TCnn (3 ,C0HMAM,L0KI 

CGCl 1 Q 

001 S3 

54 * 

C — 

DETCRMINr. PACE HO. 

CCCUE 

0C164 

55* 


LOCPAnzUOK/!rJ)*10Q 

C0G115 

uClbH 

56* 

c *- 

;-> DETFRHINE max, no. of pages REQ"D. 

COCl 15 

03 3 65 

57* 


HAXpAn = M/,XO(MflXPAf^ jLOCpAG) 

L0G122 

: C16S 

5fl* 

c -- 

-> UST IF component IS ON CURRENT PAiGE 

LCL122 

QG166 

59* 


IFtLOCPAG.MF.NPAG!: IGO TO 3QQ 

CDC127 

CDi66 

Gf * 

c — 

-> GONUEPT GENERAL PAGE LOCATION TO LOCAL PAGE LOCATION 

rjD0127 

00170 

61* 


LOCPAGtLGK-LOCPAG 

LOCI 52 

■10170 

62* 

C 

-> TEST TO ASSURE L»C NO. IS ON PAGE 

CCCI32 

CQ171 

63* 


ir(LOrPAr..LT. I.OR.LGCPAC.GT.QCIGO TO 260 

coaus 

roi7i 

64* 

c 

AOn SYMBOL TO CllPPEKT PAGE FOR COiMPONEKT 

OCCl 35 

DC 1 7 3 

6S* 


CALL rt TCOO (4 ,CCHNAM , 3 SY^r, ) 

C0C152 

G G 1 74 

66* 


I rn 0 1 A G . E 0 . 2 2 > W Q T T E U U R 1 T C , 2 5 3 ) C OH NAM , C OMN A H »I S Y MB 

GGL157 

GG2G2 

67* 

251 

fORMATf SCHEMA • , A J 0 , I X , 02 3, H G 1 

CD LI 72 


BCS 40180-3 




.'-"ra- 








uJ 


OD?Q3 

6K4 


CALL STWH'OL f PACt »GOHN AH ,I StMO ,L0CPA6 | 


QD0172 

G0^3J 

69» 

G • 

— > FORM table of component NAMES iOK ONLY FIRST PASSI 


C00172 

3020*1 

70* 


GO TO 300 


LDC20C 

CD2D5 

71« 

260 

T E C l k P I TT , 26 1 III OK , COMNAh 


ijaU2u2 

oerii 

72 ♦ 

261 

F0RPATf/5X, 31M *** WaPNINB *♦ * LOCATION NO. ,14, 


CGC21D 

OOill 

73* 


1 * FOR COMPONENT *,A4,* HAS LAST TWO DIGITS OUISIOE THE 

AttOltARL 

cDcnc 

0G211 

r*i=* 


2 E PANr-i: or I TO 


0002 1C 

0C21 1 

75* 


3* WO symbol will be placed in schematic for this component 

“1 

C0G21C 

0C212 

7 b* 


LPK‘-1GC 


to L 210 

G021 5 

77* 

3C0 

C(UJTI4’UC 


EtJC220 

00213 

7P ♦ 

C - 

— > apo GONNLCTtNG lines And names to schematic 


COD220 

CG21 3 

7V* 

c - 

— > SCAN MODEL COMPONENTS 


CG-J22C 

0C21S 

62* 

400 

no sen i3],NncorP 


CDC22L 

Of21S 

fll • 

c - 

— > BYPASS OIRCGl FORTRAN INPUT COMPONENTS 


t 30220 

DQ220 

82* 


iriMGMSiR<CMpHOnCI 1 , 1 «4iF 0RLT,1 l.ro.ot&o TO 500 


C0D22C 

GC020 

Ei* 

c - 

— > cr I locA TiorJ no - . 


G0C72 C 

Gc;?2 

84 ♦ 


CALL GET COD 13, CMP MOP (I J ,LOK» 


CDC233 

oc;'?2 

es * 

c - 

— > DC term I ME PAGE NO. 


CDE233 

OQ02 3 

eb* 


LCCPA6- KOk/lDQ 1*100 


CQC?42 

00223 

87* 

c - 

— > ersvrot lgc to local page location 


LOC242 

0 0 22*1 

6 &* 


LGK-LOK-inC PAG 


100247 

0C224 

0 V* 

c - 

ITST TO ASSURE iOC NO.. Is ON PAGE 


LaC247 

00 225 

9C* 


IFIL 0 K*L T. 1 .OR.LQK .GT.eOlLOCP AGr-I 


eno25 1 

0 022 5 

91 * 

c » 

— > SKIP INPUTS TO PUANTiTlES ON oTHEr PAGES 


000251 

0C227 

92* 


If ILGCPAE.NF,mPAGE>=0O to 5i)Q 


C00271 

GD227 

93* 

c - 

— > C.t T NO. OF 7 N PUTS TO COPf*. 


CO 02 7 1 

□ 0231 

94 * 


GALL rriCOD ! 5 rCMPHOfJ t I 1 ,NTNPUT ) 


CCL274 

00231 

95* 

C " 

— > fiYPASS COMP. WITH NO INPUTS 


600274 

•GE232 

96* 


rFCNI.MPUl .LE.riGO TO SDG 


L003G3 

0D232 

97* 

c - 

— > 6EF INPUTS LIST 


G0C3D3 

0 0 2 3 *< 

9e * 


GALL PLAUMS < 7 f INPtl rs tNTNPUT ,r J 


CO 03 06 

OCcZM 

99* 

c - 

— > 1NII1ALI2E KO. inputs GDUNTER CURRENT INPUT COMP. 

MAMt 

r.GC3Q6 

GC235 

IGO* 

420 

riioiN=n 


COL 3 1 S 

GC2 36 

101* 


H!Ofi:E=r 


LD0317 

.DC2J7 

102* 


iNGOM^rASTRSK 


GGC32C 

GD24G 

103* 


IF ( IDTA&.L O -iGiWRI TC i I WR 1 7E , 4 2 3 1 G HP MOO f I J ^tlNPUTS f Jl ,J^1 , 

NINPUTT 

E0032 3 

DC25J 

1C4* 

423 

FCRMAT 1 ’ S CUE HA -TUP UTS • , A 1 0 / 10 1 1 X , A 1 0 M 


£00345 

00253 

105* 

C * 

— > SCAN inputs 


rGC345 

00251 

ICO* 


DO 4=8 0 J-I, N INPUT 


OOC345 

0C251 

107* 

C - 

TEST ir INPUT IS FROM CURREMT COMP. I.E. PARAMETER 


GOO J4S 

GC254 

. 1 08 ♦ 


in kohstimi NPUis t j ) , 4 , i ,blnKp n.co.oico to 4 eo 


GDQ34 5 

00254 

129* 

c - 

— > IS Tins A NEu input SOURCE 


QOC34S 

0G256 

iin* 


iriKOMSTRITNCOM,4,4,JNPlMStJ‘l ,41,EO.01GO TO 440 


CT0357 

0 G 25 6 

1 1 T* 

c - 

bypass name load If 2N0 COMPONENT APPEARS 


L0O357 

0C263 

11 2 * 


IFfHOPE .NE . 9)CrO TO 46 0 


.000372 

0 0 260 

113* 

c - 

— > SAVE MfU SOURCE MAKE 


ODC372 

GG262 

114* 


itJcnuriNPUisr Ji 


000374 

00263 

115* 


M0F?£=1 


G0C376 

0=0 26 3 

116 * 

c - 

— > A [IVA N C t I NPU T G OUN T 


000376 

GG264 

11:7* 

44 0 

NOIN-MOTM*! 


LQL401 

CC266 

■Jlfl* 


n ame S mo 1 N I r j NP U rST Jl 


GDU4D5 

0=0266 

119* 


INPUTSm -ulnk 


CCC.407 

•00 26 7 

122 * 


GO TO 4:0 0 


O0D41 1 

=00 273 

12 ] • 

460 

MOPf-? 


LQL413 

0 0271 

1?2* 

4B0 

coNTimjr 


EDC416 

CO 271 

123* 

C - 

— > IS THERE A CURRENT INPUT COMPONENT 


LDC4 1 6 

00273 

124 * 


IF (NOIM.LE .OIGO TO 5CD 


iCaC4)6 

, ... , , 


....... 
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ac^4&\-2i£aii£a^^ 


0WTS 

125* 


CALL rONNCT eP*6e*NPACt >LOK*NAHe$,MOIN,CHPROO »NOCOHPl 

0004421 

00275 

J264 

c 

00 HOffC CCHPOWCMTS PROVIOC INPUTS 

OOCM?! 

0G2T6 

12 7 ♦ 


tr<Kont.ro.2»Go to ^^o 

G0C432 

C0 3CQ 

12fl# 

SCO 

CCNTINUC 

Q0G44 1 

00330 

129* 

G 

> PRINT PAGE 

CCC44 I 

0C3j2 

UC» 

60^ 

wiPrtr-NPAGr /itjo 

ED 04 4 1 

0'D3Di 

111* 


VRIU UURITf ,605ITlTl-rrNAHE,P AGE 

EQG4HM 

oc no 

132* 

60S 

r ORHA mill, ?9Xt 7 A 1 0, 24X , 'PAGE * , 1 3 / 1 2X , 1 3A10 1 » 

C0E*4fr 1 

CC213 

1 3 3 * 

e — 

> It ST Ton LAST PAGE 

C0C461 

CE in 

134 * 


IT TNPA&C .CE .MAXPAC IBE TUPM 

CClD4i£»l 

com 

1 lb • 


NPA6£=NPAnE-»100 

CGC47C 

w 011*4 

lit* 


BO TO ino 

C0G473 

iCllS 

137* 



on 0Mb 
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SURROUTIPJt SYMBOL ENTRY POINT GOOR7S 


STORAGE USED COOEM* C00513; DATACOJ 000102; BtANK C0NH0NI21 nZuCOO 
COHMOff BLOCHS 
0001 CIO. D00C33 


external RrrERfNCES IDLOCK* NAKEI 


OOOR 

S T Rr-OV 

0005 

PUTT 

C3C6 

F;urt;s 

GCC7 

ft 102% 

Q.0 1 3 

NIRR3S 


STORAGE ALSIGNHENT IBLOCHr TYPE* RELATIVE LOCATION* NAME I 


COOl 

CL 01 27 

137G 

0001 

000167 

153G 

OCOI 

Q0015R 

2CCL 

OOOL 


000162 

205 L 

0C31 

OOP325 

2070 

J301 

CCC23q 

2DrL 

oroi 

0002M3 

215L 

0000 

OOCOlO 

22F 

00 DT 


0002'iS 

22QL 

OCOI 

tOVHM 1 

231C 

0301 

D70252 

300L 

OCOI 

000262 

^#COL 

DCOl 

000371 

R15L 

DDOl 


000373 

<|20L 

0001 

COOduC 

50CL 

03C3 

0 OCrLDD 

AS7RSK 

c^ao 

I OOOOOR 

I 

ocoo 

I 00QG07 

ICOL 

0003 

I 

OQ0C02 

IDIAG 

DOCQ 

CC0C65 

INJPS 

0003 

Lcnooo 

IPf AO 

0C03 

1 COOCOl 

1 WRITE 

0000 

I 00C0G6 

K 

cooo 

I 

oooacs 

L 

COCO 

1 C00003 

LOCCOL 


OCOO I CUDG02 LOCLIN 


'JClOO 

!♦ 

CSYMbOL 

000002 

30101 

2* 


SUHROUTINE 5 Y^B OL f PAGE *COWN AH , TSTHR ,LOX 1 

roCDQ2 

00101 

3* 

C 

VERSION 1,2 REVISED OCT 17 1975 

CO 0002 

30101 

n* 

G 

PURPOSE ADD COMPONENT SYPR0L5 AND NAMES TO ECS MODEL SCHEMATIC 

D0CC02 

lCIOV 

5^ 

C 

CALL SEOUCNCC PAGE - 13X56 ARRAY CONTAINING HOLLERITH 

CCCC02 

com 

6* 

C 

PTPRCSENTATTGN OF A PAGE 

G0C0G2 

1 0101 

7* 

c 

COMfiAM - name of COl'PONENT TO BE ADDED TO PAGE 

Z0CZZ2 

-ClOl 


c 

I5TMR - symbol lYPC NO, 

00CGC2 

C-OICI 


c 

LOK - tOCAiIDN or SYMBOL ON PAGE 

E0CDu2 

coim 

IZ* 

c 

DESirnED BY J*0. BURROUGHS JUNE 1R7M 

E0CrC2 

G01U3 

11 • 


IMPLICIT nOUFiLE PRECISION lA-2 1 

CCl0f:02 

CniGM 

17* 


IMPLICIT INICGER ( 1 , J,K ,L f H »N I 

O00C02 

CC105 

1 Z* 


CO«HON/GJO/TREAn ,TUPI TE ,101 AG 

CGL.CC2 

0CIG6 

14 ♦ 


OTKENSJON page* 13,56) 

EOCC02 

roicb 

1 S • 

c 

LITCRAL •POOIV TO SATISFY DOLE PRfCSN 

CGLOa? 

L0107 

16* 


DATA ASTRSK /I 2M* * 4 4 / 

^C5L02 

GD1D7 . 

W* 

c 

> LOCAIION LINE NO, 

rocoD? 

f-cn 1 

!?• 


lCCLlf;=7*| ( LCH-1 J/IO) *3 

rnooD2 

COl 1 1 

1-5* 

c 

— *> LQCA T TOM COl UMN NO, 

L2^LCL2 

IC 1 1 2 

2C* 


LCCCOL- IMOn flOn-1 , 10) * ! »♦ 13^10 

GOS012 

00112 

2M 

c 

> ADD CnKPONEUT NAmX TO PAGE 

LOCO! 2 

con j 

2?* 


CALL ST R^OV 1C0MJ?AH , 1 ,3 ,PAf,C fl tLGCLIN 1 ,LQCCOL ^31 

C00C2 1 
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-sj 

Ok 


D D 1 1 ti 

23* 


in lOTAO ,0 0 • 22 ) WR TTE ( I URI TT . 2 2 ) CDMN AH * I S Y hlB * LOK 

□30036 

:i0:i2z 


22 

format ( * symbol • , a !G »2 J 1Q> 

C30C5 1 

11012? 

25* 

C — 

ILSl FO'f? symbol type 

GOODS 1 

0 012 2 

26* 

C 


COLDS 1 

rOJ22 

27* 

■c 

SYHJ'OL NiUHRERS LTSS THAN 64 SHOULD NOT OE USED DUE TO 

COCDSl 

.cir? 

?a* 

c 

csoni PLiPLACTNrj oon with SSB when CALtEO BY FILOAD. 

LCuCS 1 

rci22 

2'M 

c 


COLOSl 

CC125 

3T* 


lFII5VMB*f D *.iaO)GO TO 203 

CCLD51 

j C 1 2 5 

31* 


IF ( I SYMt^ 0 .2031GQ TO 400 

CGCDS4 

:ri27 

32* 


irUSYhfUro. 2CG) go to 30D 

C0L3S7 

GC131 

35* 


ir n SYhB .C 0 •MCOIGO TO. SGO 

Locrsz 

J3C1 31 

3^4 * 

c -- 

-> OFFALILT SYHGOL - SQUARE 

C0CC62 

DO! 33 

3S* 


LCCL :r-LrrL 1N“2 

COOCtS 

UC 133 

M»* 

c — 

-> -TOP ANR BOTTOH L INCS 

OOCf'LS 

CC 13^1 

37» 


CALL STRMOV < ASTWSK , 1 , 1 CtPA&C 1 1 1 LOCLt N 1 • L 0 CCQ L ) 

LCLr./C 

001 31. 

3ii* 


gall S1RM0 4/ CASTRSK . r, JQ .PAGEC 1 ,L0eLIN*5 )*L0CC0LI 

COUl OS 

OOllS 

39* 

c -- 

-> sinrs 

COGICS 

CG136 

*4::* 


no ICC I - 1 r4 

G0D127 


m* 


CALL f'Ur UP AG.ri 1 ,L0CL1N*I J .LOCCOLtlPH* 

crosri 

0C1U2 

42* 


CALL PUTT (PAGE (I.LOCLIH VII, LOCGOL *9,1 2H* 

cool 35 

001^3 

M 3* 

100 

COKTlNUC 

CDulSC 

COIMIj 

t*M ♦ 


PL T UilN 

C0C15D 



c -- 

-> COMPRESSOR SYHfl'OL 

CD0150 


*4C* 

200 

t-LOCCcL 

CDOl 54 

CC1<*7 

«4 7* 


Kr2 

C3G155 

CO ISO 

MC* 


ICOLrl 4 1 

CCDl 57 

0 0 1 S 1 

49* 

205 

LCCL irjrL OGLTN'S 

C0L1L2 

0G1*>2 

SO* 


DO 22G 1=1 , IG 

000167 

C D 1 5 5 

51* 


LOCLU:rLnClTN + l 

C0C167 

r-c l.SS 

S3* 

C — 

TEST TO PREVENT TOP OF SYMBOL FROM GOING OFF TOP OF PAGE 

CCJ0167 

0C1S6 

S3* 


ITT LOCI. J N.L T *1 150 TO 2D8 

CCGl 72 

CC156 

54 • 

G 

'> TfST ID PREVENT BOTTOM OF SYM^Of- FROM GOING OFF PAGE 

CDC172 

0 1'Ci 0 

SI* 


IFdOri JN--CT.S6 I RE TURN 

C00175 

0C1G3 

5L* 

C -- 

-> STRAIGHT EOGE OF SYMBOL 

C0L175 

CC 1 h2 

S7* 


GALL STRHGVM2M* ,1 ,1 ,PaGE 1 1 , LOCL T N| , L ) 

□0L2C4 

:ci62 

sa* 

G -- 

-> SLOPING EDGE OF SYMBOL 

C3C2C4 

0C165 

5 9* 


GALL STRHOV ri2H* ,1 * 1 ,PAGE (1 *LOCLXNI t ICOL > 

C0L221 

CC16 3 

t( * 

c -r 

> TEST TO REVERSE SLOPE OF RIGHT EDGE 

Ca072 1 

CO 16^ 

6 1* 

208 

IFU .fQ.ST'GO TO 215 

D0C234 

C 0 1 0 6 

62* 


ICUL-1C0L*K 

0Dr:?36 

rDl67 

63* 


r>0 TO 22 l 

CCC241 

C0173 

6=4* 

215 


LQ02H 5 

0C171 

65* 

270 

CON T ItJUr 

COUZMO 

DC 173 

6 D ♦ 


RETURN 

D3024 6 

OGi75 

6 7* 

G — 

-> TURBINE symbol 

00L246 

O&l 7^ 

63* 

3GG 

L=LGCC0L*9 

crc?52 

1C ITS 




uOC25H 

0 C 1 76 

71* 


I COL =1-1 

E0L756 

GCJ77 

71 * 


GO TO 235 

C3C26C 

00177 

77* 

C 

-> CIRCLE SYMBOL 

CDC26D 

QOcCO 

73* 

400 

LOCLI4=LOGLTN“2 

CDl?62 

0C201 

74* 


CALL STRMOV 0 2H ****** ,1 ,10, PAGE (1 ,LOCL IN) ,LOCCOL 1 

C00264 

DC2D2 

7S* 


GALL STRMOV f IZH ****** ,1 , 1 0 , PA GE i 1 , L OCL IN* 5 J ,LOGCOLl 

G0C3C1 

OD203 

76* 


K-i 

C0C314 

0 0 2CH 

77* 


L“L0CC0L^1 

000316 

QC2QS 

7 a* 


1C01=L*7 

C0L320 

CG2CS 

7V* 

c — 

-> ADD SIDES TO SYMBOL 

C0C32C 
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or 206 

BO* 


no 920 T“ 1 ,9 

□00325 

GG211 

Bl* 


L0CL3^J=L0CLTN♦1 

C0C32S 

CD211 

a?* 

C > LOTT FDGE or SYMBOL 

C0D32S 

CC212 

8 3^ 


G/iLL STRMOV f IZH* *1>1 *P46E ( 1 .LOGLI Ml »L1 

COC33G 

GC712 

BH* 

c - 

RI&HI EDGE OF SYMBOL 

L0033C 

002X3 

as* 


CALL SlnHOVI12H* •! tl t X f LOCLI N) tICOLl 

□01399 

0D213 

86* 

C 

— J RCVCfiSC SLOPE OF EDGES 

OQC399 

0C214 

67# 


lF(I*r 0 . 2 ICn 70 915 

C0C356 

0C216 

88 « 


L-L -K 

C DC 36 1 

CJC217 

69< 


ICOlrlcOX ♦K 

C0C569 

00220 

90* 


GO TO 920 

L00367 

00221 

91* 

ms 

Kr-K 

CGG171 

CC22Z 

92* 

M?0 

CrNTIMUC 

DD0379 

oozm 

93* 


RrUJRM 

ODC37S 


99* 

c - 

OPTIMAL C0M7R0LLGP SYMBOL 

COr379 

CC22S 

9fi * 

SCIQ 

L0CUM:L0CLTH-2 

LrL9Gfl 

0:C22S 

^6^ 

c - 

— > TOP and dottoh lines 

oao9oc 

Die 226 

97* 


CALL 57RM0VU2H GOOODOOO . 1 , 1 0 , PAGE 1 1 , LOCL IN> ,LOCCOL > 

CGL9C2 

OB 221 

9 a* 


CALL S7RhOVU2H OOOOOOOG ,1 *ia,PAG£ U tLOCL 1N*51 tLOCCOLI 

C‘0C9 1 7 

Cr22 7 

99* 

e - 

— > SIDES 

CCC917 

at 230 

130* 


DO 52C ]=it9 

LO099 1 

CC233 

ICl* 


CAL L PUTT tPAGCI 1 ,LOCt IN*J1 *LOCCoL . 12H0 

C0C.99 I 

DD2 34 

JO?* 


CALL PUn TPAGE( 1,L0CL INfl > ,L0 CCOL *9 , 1 2H0 

C0L99 7 

C0235 

10 3* 

520 

CON TI DOC 

LnL9fe2 

0C237 

1C 9* 


PCUiRN 

L0D9L2 

QQ2M2 

1C5* 



C00512 
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<D 


SUBROUTl^JC TABCAL fTNlRTf POINT 000116 


STORAGC USED CODE ID 0QQ122; DATAiQl 0DO062; BLANK COMtIONCZI CDDODO 
COKtiON PLOGKS 
on 03 G TAiv 000 003 


EXTERNAL REFERENCES C BLOCK* NAhE I 
OQO*I STRMOV 

01005 ct icon 

QGQ6 NliPUl 
OOC7 Ul02^ 

OGIQ NLPR3S 


STORAGE ASSIGNMENT CBLOCKi TTPE, RELATIVE LOGATIDN, NAMO 

0000 C00013 nr . occi o;dooia U 6 g dooo nooo=^n sir oooi oO'Oost 6 CL ocoi concTo tol 

uCOl 0GG072 60L 0000 00G0M2 8 IF 0000 0 000007 ANAhC OOOQ D DOOGOO BLNK OGCG 0 D0C0D4 COMP 

DOOO 0 CCOCa? COHPS OCOQ 1 000006 T 0000 000054 INJF>» 0000 I 000011 K CGG3 I COQOQO NQTAB 

OOGO 1 000012 N1 0003 D OGGOOl TABNAM 

i 


□OGOOC 

COCClOO 

CGCOGG 

COGCOO : 

CCCiODO \ 

nscDco i 

uOuCOC 

DCCDDO 

COQOOM 

D0C0U4 

rotiuos 

coQcr^ 

00^036 ; 

u 0 G C G 6 

CCGC14 

GCGCm 

cocrH 

LDuCll 4 
C0C024 
DD0C35 
C0C0I3 
GOG03S 
COCG44 
uDCD4 7 


QPJOO I* GTABCAL 

CQIOI 2< SUBROUTINF TABCAL 

^0101 3* C PliRPOSE generate TABLE INPUT REQUIREMENTS LIST ON FILE 12 

C0IO3 IHPLTCIT OOUB^LE PRECISION CA“2> 

DD104 S* IMPLICIT INTEGER (I*J«K*L»M«N» 

0 0 10 5 6 ♦ G OK P ON/C TAB /NOT AD , TADiN AM i I ) 

C01L6 7* DATA PLNK /12M 

COllO Vf7l7CU2m> 

;0112 V* 11 rORMAT UbX, * 7 ABLE 5 REOUTRED*// 

{JEIIZ in* 12X, *CO«PONCNi TABLE NO. INDEP. MAX* DATA*/ 

CP 112 1 1* 24X. *NfME • |7X t 'NAME • , 5 X , • VAR U RLE S ALLOWED •) 

CCH3 !?♦ CDHiPSztitNK 

DC 114 13* COKPrrORPS 

DGli4 14* C ---> SCAN TARLCS. 

LG 115 15* no IOC I-JtNiOTAR 

cons 16 » C > &E 1 TABLE NAHE 

f.G120 17* CALL STllMOV U ADNAh n ) , I 1 7 » ANAME * U 

noiro lfi» C > GET MAXiaUH DIMENSION FOR TABLE 

I R 121 1 9 * C AL L \ C on * 5 * 7 A Dl» A M n ) , N > 

TD122 20* NUlAPSaiJ 

GC122 21* C > GET SPECIFIC CQPPONENT NAME 

D0123 22* CALL ST R MO V < A NA ME , 4 /4 , C OMP , U 

0C124 23* iriGOPP.EO.COHPSI GO TC 60 

C0126 24* URnCCU'.Sn 
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OG l 3J 

2S* 

51 

format 1 III 

1 

DG 1 31 

rt ♦ 


cof^^s-GOf1P 


0 G 1 32 

2 7* 

60 

Nl=fJl-3 


DC 132 

28# 

C * 

— > TEST 

FOR 5INGLC OR OOUBLE INDFP* 

00133 

29* 


iriN.GT.Lr 

GO 70 TO 

CCI35 

3C* 


N = 1 


□ DUS 

31« 


60 TO 82 


CC137 

32# 

70 

U‘2 


nci*iO 

3 3* 

eo 

W R I T U 1 ? • B 1 ) C 0« P , A N A H E t N , N 1 

C C i *♦ 6 

3 ** * 

ai 

rooMAT cnx t 

A<t ,SX ,AT ,6X .1 1 , lOX, Iq 1 

DC l*i7 

35* 

100 

CPMIMUE 


V ClSl 

3f.* 


ftif TURN 


CG152 

37* 




^0 


ocons** 

coons** 

cocos 7 

VARlABUe table cccns7 

CCCDf>l 

CCCOtH 

COC066 

IDCOTO 

CC:072 

c:cin*+ 

c-CLlC** 

nccrj4 

♦ COLJ21 





I 
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i 



SUD'RO'UTIKE TA'BPAT fNTRY POINT QD0337 


STORAG.f iisto eOnEiU O30:3<tSj DATAIOI 000:105; BLAN^K C0NHDNC2) O0ODO0 
corro^N 'B LOCKS 
00103 C7AB 000003 


EXTER N AL REFER ENC£ S I BLOCK , NAHE I 

ooDi NNcani 
0005 LJNL 
OOtfc STRBOV 
QuuT RETCOD 
0010 Nk‘nut 

con NHi2S 

0012 M03» 

0013 KLRR3S 



STORAGE ASSIGNMENT imOCK, TYPE » RELATIVE LOCATION* NAMiEJ 


0000 CGCCSti lOlF 

0001 0D01M3 20 IG 

LOGO n GOrCM^^ A'N 
0:co D C0CC3*1 HMAXOH 
DO CO I OOCCUQ IS OUR 
3:000 D 0OOOOQ SOURCE 


0001 000024 1400 

DCOl 000235 2250 

oron D cnoo2q aname 

CrOQ D C00032 HSLASH 
oroo 1 DQC046 LOK 
QC03 D PGDOOl TABN'AH 


DiOOl 000 06 0 15SG 
0000 000057 23ir 

0000 0 0C0024 BLKK 
OG0G 0 0.00030 HTA&N'H 
3000 I 00-0043 N 


3001 GO 01 35 174G 
0001 0D3245 233G 

3CCQ D C0r.:G26 HDATA 
DOOO I 000041 1 
00Q3 I Q00C3O NOTA'B' 


OC00 C0CD5 6 2 Dir 

COCO CD0C47 9ir 

0000 D 000036 HLOCTB 
QCCO 000372 INJPS 

OOGO I CG0C42 NlO 


0 0100 


GTAPDAT 



rGLOOO 

COlOl 

2^ 


SlJGPOUTlNr 7ABDAT 



LGODOC 

r c 1 0 1 

3^ 

C 

VERSION 3. BEVlsrO HAV R 1976 



GCC200 

OCIQI 

4 ♦ 

C 

PURPClSr GCNCRAIC DATA STATEMENTS FOR MODEL Tfl3iLE DATA 

INPUT 

CONTROL 

LOLOOC 

: □ 1 0 V 

5* 

C 

DESIDNin BY J.D.fHJRROUCIIS DA7C 

HAPCH 

1975 

30 0 30 0 

DO 13'? 

6» 


IMPLICIT DOUBLE PRIGISIOH' tA-2) 



COC0DCJ 

cno4 

?♦ 


T M FL 1 C I T I NT E GER r 1 , J , K ,E , M , N » 



LCUCC 

CG1G5 



CrM’MON/ei AB/NOTAB f TAB NAM 1 1 ) 



caocac 

CC106 



DtHENSlON SOURCE 18 > 



CCOCDO 

C01O7 

1C» 


DIMENSION ANAPCi2J 



CCC0GD 

COHO 



fata ANAME /24H 



uC DOC C 

:oii2 

12# 


DATA PLNK /12H / . 



C0CCQO 

00114 

•1 3t 


DATA HDAIA /12H PATA / 



E C 0 0 □ 3 

00116 

14» 


DMA NTAGNH /12l| T ABN AH/ / 



occooc 

ro 123 

15* 


PA] A lISLAsH /12 / / 



CO0OC0 

0C122 



DATA PHA/PM /12H MAX01M/ / 



000300 

00124 

17* 


data IILCCTG /12V1 LOCTAB/ / 



0OOC0D 

DC124 

IP* 

C 

SET number .OF TABLES IN MODEL 



ooccoo 

CG126 

19* 


Upl TE {'Vt^DNOTAB 



rcLooo 
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OOlSl 

2 C* 

91 

F OR HAT (bX** data NOTAB /• *13« •/ • I 

ooccos 


CO 112 

21* 


in NOTAE .LE .DIRETUfiM 

OQtlOOS 


GM32 

22 » 

C — 


coccas 


GG13M 

2 ?* 


SCURCri H=H!)AIA 

rOL013 


rc 1 ITi 

2H* 


SOOPCF ( ?l 

000015 


OC 11 & 

?s* 


ISGUUrl9 

CQGCl T 


CD117 

26* 


CO ICO I-3bB 

COD ‘^2 4 


DVIM2 

2T^ 

100 

COURCrn l-ELHK 

tCODZN 




c - 

— > CALC, NO. OF CHARACTtRS IN TABLE NAfE LIST 

COCO? 4 


0 D 

29# 


W1;C- l?o|JOTAP. 

C.GQD2b 


DC m s 

JG* 


CLC(Hfrt‘t, 10 I,NlQ>Nin 

GOOD31 


cciia 

ll* 

IDI 

rOPrATtlitlHK) 

CDLC4C 


LCl'ji 

52 ♦ 

c - 

--> »rO HO, or GHiRACTERS TO OATA STATEMENT LINE 

C3C04C 


CC151 

31* 


CALL LTHl (O.SOURCC ,IS0'UR,N10,«).9» 

uooc*to 



. 7M* 


n J=t't«K 

CGcr.sc 


COl‘j 5 

16* 


KUAV.t \7 » ::FLHK 

SQcns? 


l: G i*j 5 

36* 

e - 

— > 5CA|‘ TAULFS 

D0CCS2 



37* 


no ?C-:i l:i,LOTAB 

ODcafcC 


rois? 

3 f* 


GALL 5tf7l30V IT AI;NAH« 1 J tl« 6 «AmME*H 

GOGOL D 


CC15T 

3')* 

G - 

— > ADO lAGLF NAhF TO LINC 

C0C06C 


L U 1 U 1 

<4c:i 


CALL Live t J ,SOURCr » I SOUP *3 N AH G , | 2 »9 1 

LCC070 


D Cl til 

m • 

200 

GOMItjUt 

CDC13 1 


CGI £*3 

42* 


CALL 1 TNt « 1 , SOURCE , I S OllR ,H5LA SM ,1 1 9 1 

LDClOl 


GC IX ^ 

4 3* 


WPl TEC9, 2C 11 SOURCE 

cool 1 1 


167 

44 * 

201 

FQRrATttAlOl 

t‘DC 12 l 


rri 6 T 

4^4 

G - 

> LOAD TAPLF tVlHENSION DATA 

CCC 12 1 


ICl 73 

4 6 * 


S OURCr 1 1 ! -ifPAlA 

C 0 G 121 


l»C171 

47* 


snukCt ( 2 1 rUMAXOH 

G 0 GV 2 3 


r,ci72 

HP* 


tS0M6::,19 

C0DT2S 


C C 1 7 3 

4 9* 


RO 22a T-3,B 

COUl 35 


DOl 76 

SC* 

22 0 

S OUT: CM r J-tSLWK 

caci35 


CCl 7 6 

514 

C 

— > SCAN lADLES 

CD013S 


GDvDJ 

524 


DiG 2 40 I = 1 , 110 TAB 

00 cm 3 


cei:d:i 

53* 

G - 

— > £>C7 MflX. TABLE OIHENSIOW 

00 □ 1 4 3 


OC^C 3 

64 4 


GALL GE icon (5, TABNAHl I J ,N) 

LOOM 3 

3 0 


5 5 4 


K“JA'BMN ) 

COM 52 

SJ 

0C2D4 

5b - 

C - 

— > CONVEPT TO DISPLAY CDPE 

cool 52 

^ S3 

OC2Q5 

57* 


i NCnCT i 6 b 2 3 1 rAW JN 

00G154 


LDj 10 

5B4 

231 

FORMAT t 1 4 , IH, 1 

CO MX 3 

s 5 

GC 2 I 1 

55* 


IT 1 I *ri . not AR » C all STRHOV mSL asm 1 1 , 1 *AN *5 » 

GO C 1 6 3 


GG211 

60* 

C - 

*-> ADO max. OIM'CNSIGN TO LINE 

G0D163 

jC ^ 

G021 3 

614 


call Lirir (GtSCURCE ,I SOUR, AN, 5 ,9) 

COM 7 6 


□ 02 m 

62 * 

24 0 

GOMTV'ur 

GCC21 1 


QG216 

61 4 


WPIK I9,2C1 15GUHCE 

GCC211 


C-QZ l 6 

64 * 

C - 

LOAD TAPLF location DATA 

20 C 21 1 


ccr?i 

65 4 


SCURCr { IJ-UOATA 

LG022 1 

is Sc 

OC :22 

66 * 


S0UR(:n2 1 = HL0CTB 

LCCr’23 


OC22^ 

67* 


J SOUR- 19 

CCG225 


GC 22 M 

6 f* 4 


DO 300 1=3, P 

ECC235 


C !::2 7 

69 4 

300 

sourer ni-DLNK 

LCG235 


uCZ3l 

7:4 


L OK = 1 

rCl237 


0 C 2 n 

7M 

c * 

— > SCAN TAPtrS 

006237 


0 C 212 

7?4 


Of) 320 1 = 1 .noTAO 

G0C245 


00232 

734 

c - 

— > CONVERT TO DISPLAY CODE 

CCG?4 5 


002 J5 

74 4 


rr^cour IS *25 1 , AfT jlok 

U.CD?45 


002 4 3 

754 


IT 1 1 *CF , NOT All ) CALL ST R H 0 V ( HSL ASM , 1, 1 « AN, 5 1 

L0C2S4 


00240 

76* 

c - 

— > AO'D TABlE LOCATION N;Q. TO LINE 

G0C254 
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QQ2HZ 

17* 


CALL LINC •OfSOURCF , TSOUR, «N,S ,9 ) 

000267 

OQ2«l? 

It* 

C — 

-> GET HAX* OIHE^STON OF TABLE 

rD0767 

00243 

74 * 


CALL GETCOOCSiTABNAMII I tNt 

CD0277 

GC243 

SG* 

C — 

-> GALC. THC NfXT TABLE START1N6 LOCATXOH 

G002 7 7 

QG244 

El* 


LOHrLflK^lABSOJl 

005306 

GG245 

62* 

3?0 

CONTIK'UE 

G0D31 3 

COcMT 

B Z* 


UiPlTE <9,20USQU»Cf 

D00313 

atZi‘2 

E4* 


RfTURN 

G0Q323 

C02S3 

6S* 



G0C344 


BGS 401S0-3 


SU{)ROUTI>r TA9CLN EMTPT POIMT OOOJ*5 

STORACi: USED CDDE«11 GSD152; DATMOl OOBOTIl BLAMK COP-MOHI2I CODOCC 

cobkoh blocks 

0303 C7#S cr.ao33 


c»TtffNtL arrcPE»7cES i block, hahe» 


07C^ 

r.CTCOD 


CQ05 

SlPrOV 


OC! Cii 

ttifcans. 



1 1 tfi 


GZJO 


i 

03U 

h iri2\ 


ooi.2 


1 


KLTPJl 



SfOPACE »i'. IMO'EKT fetOCK, T"PC, RELATIVE LOCATION, NABEI 

3303 LLCG37 IDT DC03 OODDKI ICSF 000! D0C02A 12SS 0001 OOGOJA 3 33S OCOO OOOOA6 20ir 

CCG3 0 CC''.03S MU COCO 0 00DD2A 8LKK OCOO 0 300030 HBUtCN 0003 0 000026 HCOKB OCOO I C0C0I2 1 

3'CO rtPL&O IHJP» aroo I COOCIS IEOOP OOOO l OOSOIA M 0003 I OQOCOO notab acoo D CC002C sotab 

03C0 D OwOCOO SOURCE CCoJ 0 RCOOOl IA&f/A« 


CCIGD 


cm 

?G£H 


CCDCOG 

tCiUl 

?♦ 


SUBPOUTlMr TikfiCE^I 


GDCCOG 

CGiai 


c 

PtJpPDSr GtlTPATC THC T*PLE COM??OW TOR TCS KOrOEl. 


LGorroc 

CD 131 

♦ 

c 

CALL ttQVZUCZ nTAfi - TOTAL ^<0 DT TARLC5 Rr0"0 BY 

KODEL 

COCCCiG 

3riDi 

5* 

c 

THE OF ThF T/**^L£S APIO THCIR DlPCHSIO.MS ARC STORCO 

CQljCJGO 

CCICI 

t • 

c 

itt the is std^^cd rnc rifisr 

7 CHARACTERS 

COCDCfC 

1GJ31 

?♦ 

c 

cr TACH vcfift jnt DT^^r^fST^fr is sTOPcn in 

THE LAST 2 

CGCCGC 

r.c]ci 

? * 

c 

CHAPifriFPS VIA THE POUT If rC PUfCOO* 


Eocoac 

CaC 1 D J 

*>* 


IMPLICIT roun.E ppcrisiON «a-?i 


LCDC2C 

criCH 

ll* 


Jf'MiriT Jf:7rr.t^f tl ,J,K ,L .N,UI 


CGCLOC 

scics 

11 • 


CONPON/C7 Afi/*)n f AS , TAfjNA-*-n ) 


rGCLOC 

CCi.06 

!?♦ 


soupcr I? msomsi?) 


£30000 

3DIC7 

12 • 


data «*LNK /J?Ff / 


CDCOQO 

rcni 

]k* 


DATA UCC^y. /\2\\ / 


LQCOCC 

3Ca U I 

It* 


DATA KM.LrH / 1 2UC U/ CT A M f / / 


CCCC'OC 

ICM 5 

U* 


if tnauH .If ujpn 


LOCfOC 

CTU7 

n • 


VFJTt f9:,I3) 


LHCGGS 


If ♦ 

iO 

5 TA^LESM 


L0CDJ 2 


19# 


srupcr { ] 


CCLC12 


23# 


SOUPCf (2 


00 u3 1 

CC II'H 

2 1 # 


00 ir,o I- j ,2 
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IU127 

22* 

100 

SOURCE ri >^BLKK 

C0CO244 

com 

2i* 


IS0UR=^23 

CQQ026 

ocm 

2*4* 

c --- 

SGAfJ ALL TABLES IN THE MODEL 

D0CG26 

C0U2 

2S* 


pO 200 I=1>NO7A0 

C0DQ3^ 

QC1Z2 

2t* 

c 

> GET TAELE DIMENSION 

G0CU3^ 

GG1I5 

27* 


CAt L rf TCnD fS , r ABWAMf n »N1 

OOCOIM 

C D Ufa 

2fi* 


N-1 ABsnr# 

CDDO^t 3 

GO U6 

2<i* 

c 

GET table name 

COCa<j 3 

CC U7 

3C* 


CALL SlR'^OVMABMAMtn ,} ,7*S0|AB,n 

COCOAS 

OG13 7 

Z\* 

c 

> COJiVEGT DIMENSION TO BCD 

OOCZMt 

V C 1 4 3 

22* 


ENCOfir tL, UStANlN 

COCDSL 

CDU3 

33» 

105 

format C 1 lU » I 3 , 2H > , ) 

CCCC05 

ocm3 

Zk* 

C 

RfMOVE COMMA IF LAST TADLE 

LQC0G5 




IFM .a ,NOTMi TCALL ST RKO V f CL>J K * 1 tl ,*N,6» 

CD C u & S 

?nu6 

Zt* 


call ST RKOV J ANU , SOTAP , B T 

CGC JOG 

QG iMfa 

27* 

c 

Ann TAOLL NArir TO SOURCE LINE 

CQLIOD 

c- a 1 <i 7 

zs * 


CALL UNE {Q,SOURCr . TSOUR , SOT A B * 1 3 , 9 I 

C0U1C7 

ocitj 

39# 

200 

contimjE 

ZOi.122 

L-CU2 

4L'* 


WRITE f9UCUS0URCF 

CDC122 

LDU5 

Mi* 

201 

rORHATUAia 1 

CQU32 

CGlSb 

H2* 


RETURN 

CU01Z2 

l 0157 

M2* 



C0C151 
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SlfePCUTIfJt VLINf entry POINT 000115 


STORAGE OsrO CODE U I 000132; OATAIOI OOOQ25: PLANK G0HH0Nf21 DOOO0D 


EXTCPNAL REFERirNCES (BLOCK* NAME I 

O 0 G 3 PUTT 
□ODU KOPSTR 
0D05 NEPR3J 


STORAGE assignment (BLOCK* TYPE * RELATIVE LOCATION» NANFT 

aOOl CD0016 loot OGOl 0DGDP5 12TG 0001 CODOZHIOQL 

□ 000 D OGOGGtl HT 0000 0 COQ002 HV OOCO I 000Q12 I 

00 00 I COQQll 12 ODG*i 1 O0DGDD KOkSTR QGOQ 0 000006 POINT 


OOIQO 
GO 101 
00 101 
r.oioi 

CO 101 
CGlOl 
OGICI 
C C1G3 
C'Q1C4 
«GliQS 
0 E 1C 6 
roiiQ 
OG 1 1 2 
00 13 2 
OGl 1 H 
QGim 
003 1 6 

ec u 7 

C D1 2 D 
L E 1 2 1 
LG 121 
CD 122 
DD123 
00 I 2 H 
e=Gl2^ 
LGIZS 

roizs 

: Gi?6 
DC 1 26 
GDI 31 
CQM3 


1 * 

2 « 

3 * 

R* 

S« 

6 * 

7 * 

<?♦ 

10 * 

u* 

12* 
13 * 
l»i* 
15 * 
16 * 
17* 
Jft* 
1 «* 
2 C* 
21 * 
2 24 
2 3* 
2 *»* 
25 * 
26 * 
274 
2H* 
2^4 
30* 
3j# 


eVL INC 

SVBR OUT IKE VLINE (PAGE ,1G0L*IM »IRI 
C PURPOSE PAGE - 13X56 APRAY CONTAINING HOLLORlfH 
C REPRESENTATION OF A PAGE 

C IGOL - GOLUttN NO, OF LINE 

C IN - LINE NO. OF U^PUT COMPONENT 

C IR - LINE NO. OF RTCEIVING COHPOWCNT 

IPPirClT DOUBLE PRECISION lA-71 
IMPLICIT INTEGER 1 1 • J ,K .L «M ,N 1 
DIMENSION PAGE (13,561 

0 A T A HA /12 HA / 

riATA HV /12HV / 

data hi /32HI / 

e > IS INPUT ABOVE OR &ELOM 

irUN.GC.lRVGO 7 0 IDO 
,C — -> INPUT IS ABOVE 

POI NTriiv 

1 ]=1N 
I2=^IR 

GO TO 20n 

G — -> INPUT IS BELOW 

100 ponn=HA 

1 1 r 1 R 
1 2:: IN 

c — -> Place point on receiving end of line 

200 CALL PUTT IP ACE Cl • 1 R ) , ICOL ,POINT 1 

C > /IOC, fjo. or symbols PE0»*D, to SPAiN LINES 

no 300 1 = 11*12 

G > irST TO PREVENT aYfRURtTING POINTS 

IFI KOHSTTfCPACfl j ,M ,1C01 ,I ,HA ,n,lQ.O»GO TO 3GQ 
If CKOMSTr IPAGE! 1 ,T J ,1C0L,1 ,MV ,1 l-EO.OICO TO 5D0 




i 


0001 0001D2 3Q0L GOOD 0 rOOOQO HA 

0000 OODOIN INJP« OOCO I 000010 II 


000C02 
000002 
OOOOD2 
GO 000 2 
OQGC02 
C0ij002 
C O COD 2 
CO 000 2 
€00002 
CD'C0G2 
£.00002 
C01‘.OO2 
GO0OC2 
CD0CD2 
CD0OD2 
CQ0GD2 
DnUCD6 
CODOl 0 
OOuCl 2 
COCO! M 
£DLU M 
OOGG3 6 
DDLCl 7 
lCC:121 
CCJL.02 1 

Lccnrn 

CnL.C24 

coorss 

COt-035 
ODCl.** 5 
CODOb 7 
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00135 37* C/ILt PUTTl'PAGrn.I > ,ICOL.HI> 000072 

0D136 33* 300 COKTINUE 0ODIO3 

eci<(3 3«* PETUBW 000103 

CC1<41 35* EMO a VLINC ***•******•*****««***•***•*«*•* 000131 


t'. 


3.0 SIMULATION PROGRAM DESCRIPTION 


3.1 INTRODUCTION 

The Simulation program accepts program commands which describe analyses to 
be performed on the given system model. Each analysis is then performed on 
the nonlinear system model that was created by the Model Generation program. 
The Simulation program core requirements vary as a function of model size, 
growing as the square of the number of states in the model. 

3.2 PROGRAM STRUCTURE 

Figure 3.2-»l contains a macro flow diagram of the SlMlAEST Analysis program. 
This f I uw ui -agram shows the pr-inclple tasks of the program. For each task, 
a statement number of the main, {NONSIM), program is given along with the 
name of the principle program that accomplishes that task. 

The sequence of performing the various tasks depends on the analysis and data 
requests. As each analysis is performed it*s outputs are generated on the 
linepri nter. 

3.2.1 Comfnan.d I hterpretat i on 

Figure 3,2-2 contains a macro flow diagram of the Simulation program command 
interpretation process. Each input data c^rd i s read and printed to provide 
a record of the progress through the analysis requests. Phrases are identi- 
fied on each card by the routine NXTPW. When a blank phrase is encountered 
a new card is road. Each phrase is tested against the three types: command 

phrases, program names, and program values. If one of these types is recog- 
nized the proper action is taken. If the phrase is not one of these types 
a test is made for an outstanding task. An outstanding task consists of such 
mU'l t i phrase tasks as def ining state names, inputing parameter values, speci- 
fying initial conditions, etc. If there is no outstanding task the warning 
message "CAN'T INTERPRET xxxxx" is printed and the program goes on to the 
next phrase. ^ 
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START 



INTERPRET COMMANDS 

AND BRANCH TO APPROPRIATE 

TASK 



t INTERP 
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SIMULATION 

TASK 


( 100 ) 


Figure 3.2-1. SIMKEST Analysis Program - Macro Flow Diagram 
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Two temporary files SCRTCH25 and SCRTCH26 are used by the Simulation program. 
SCRTCH25 serves as a temporary buffer for simulation plot data. The plot data 
for each report interval is stored on SCRTCH25 until all report intervals 
for the simulation analysis have been completed. Upon completion of the simu- 
lation analysts, information describing the number of plots, report intervals, 
and plot scales are placed on SCRTCH26 and the plot data itself is transferred 
from SCRTCH25 to SCRTCH26. 

Upon completion of alt analyses for a particular run, SCRTCH26 is processed 
by a separate program (NSMPPT) to generate lineprinter plots. 

3,3 SIMULATION PROGRAM SOURCE LISTINGS 


Compilation listings for the simulation program follows. Some subroutines 
such as NXTPH and LCMPH are used in several of the programs and will be found 
in the source listings for the FILOAD program (Section 4,31. There are five 
subroutines which are only called by the model ECJMO or the library components. 
These are listed after the simulation program source. The names of the simula- 
tion routines, in order of appearance, are: 


BLOCKDA 

LPRINT 

VALUES 

CGDGEN 

NAMES 

VARMGD 

CODLGO 

NONSIM 

VAROUT 

OISPLA 

PLINIT 

XFR 

DTTIM 

SET IN 

CUBIC 

FPCT 

SHELLX 

IMPLIC 

FSHELL 

SIBTCH 

TBLUl 

INIT 

STEPl 

T8LU2 

INPUTS 

TABIN 

UNIF 

INTERP 

TITLE 



90 
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BLOCK DATA 

STORAGE US€0 CODE Cl) COOQG0; O'ATAfG) ODOOO0; BLANK COHHQNtZl CGOOCO 


COWON BLOCKS 

aOC3 CSIMUL 000022 

0 3G<* Cpt^GN GnO!n2 0 

0 30'^ CpOQV 000 03 3 

or 06 GSf'pAR eroo^t, 

00C7 ccr^n^ 000012 

C310 CSC^LE l:00T66 

OC.n CIO LQGC03 

301? CRPIN7 G00036 

0.G13 t OVRL V CDG0D4 


SlOftAGE ASSIGIS^CNT (BLOCK, 71TPE, RELATIVE LOCATION, NAME) 


0013 

p 

ecrcG3 

CP U S E C 

cnoft 

I 

CaC32M 

JCIND 

DOOT 


CIDGOOO 

3C0K 

0003 

0 

OOOD12 

IDtNT 

ecu 

I 

CGr002 

iniiiG 

^0^3 

I 

C-COulC 

iNorx 

GD07 

I 

rcoGn 

INDEXX 

QSQ5 

I 

D GOOD 5 

IN0PAX 

0C15 

I 

ODDODO 

INST 

0003 

T 

DC3002 

lOuT 

GCO? 


DO DC 10 

1 PUPS 

000 3 

I 

P0D011 

IPLOT 

OOPJ 

I 

00 cool 

IP RATE 

0003 

I 

OGuQCC 

IPRTN 

OCll 

1 

CliCOOO 

iet*D 

ocn 

3 

tCPGQl 

lup ITE 

C Cl 3 

1 

000302 

LOHSIM 

OOlJ 

I 

OD0OQ1 

LOKSS 

0012 

T 

nacc?*! 

LPRT 

OCIO 

I 

C0036D 

MPLTS 

a DC 3 

I 

ccrcrm 

NP1 MA X 

urD3 


DO0QD3 

NPTS 

0010 

D 

COD 170 

NVAR 

QCC^ 

n 

coo coo 

prONAM 

0C12 

n 

^CDCCQ 

PPINA*1 

OOGS 

p 

GCCLDO 

PVALUf 

□ 010 

p 

cnaoDo 

SCALE 

UC06 

n 

OOCCCQ 

SMPAR 

DQC-3 

R 

OGOO06 

TINC 

0CC3 

R 

CuC337 



CaiDQ 

!♦ 

ocici 

?♦ 

00131 

3* 

CO 102 


CQ 132 

L* 

C0103 


cvtc^ 

7* 

0C105 


:ci3b 

9* 

C C 1 G 7 

If • 

CCilD 

M* 

:ci n 

1?* 

: 0112 

13? 

GCJ23 

14? 

CG122 

IS* 

’■Cl 26 

IL* 

CDUl 

1 7* 

GO 131 


u C 1 3 3 

IV* 

COl 36 

. 

t 01M2 

21 * 

0014^* 

?2* 

CClbO 

23* 

DClb3 

24 * 

: C16D 

2 *^ * 


CPLOCKDiA 

DIOCK data 

C VERSION 3. REVISED APRIL 30 1976 

C nKrON /CSI^^UL/TRRIN, IPRATt ,1 OUT , NP T S ,NP T MAX ,IKDM AX , T INC , TKAX 
1 ,iNnry,TrLn7.iOEM:TC*i» 

C OH PG^/rr* RON/P RG NAM t a )/CPRCV/P VALUE t27)/CSMP AR/SMP AR C 1 0 ) , I C INO (2 ) 
r^pP0K7CE0KP/l C0n « 8 > » IPUR S ,:TNDE XX 

CnUMOM /C5CALr/SCAL?(P,t4,(i>,NVAR(5 r2,6>pNPL TS|6) 
CRHPflN/ClO/lRCAO,IUQl TTTiniAG 
C OHVON/CPRINT/PIUNAH ( 1^,) vLPRT HOI 
CGMrrtv/rnvRt V /P.s t ,lck sr, .i gks ih pcruscc 

CfCllM* PI rcTSrON l t rNr,NVAlJ,PRONAM,SMP^RtPnTNAM 
[I AT A 1 pp I N * I PR A u , 1 niJ T , T PvC , r M A X / 1 , 1 , 1 , . 1 , 1 . / 

OAT A / 

DATA INnrx, I GT /{?,!/ .iMMrXX/G/ 

DfATft PlVOH'AH/a^ l 2M / t SM P aT? / 1 0 * 1 2M 

D'A lA PVAt UC./“J • feT* I'O 0 

i il * f ..a, 1 • , C( 

DMA MMp; X / 1 / ^ irjpKAx/f>rfi/ 

Oat A f^F’L ]l/ \ , 3*0 /,HVAP/0G»1 2M AfSC A LC / 1 2U^ 0 •/ 

DATA 1C 1 NP/ ; ■i *3/ 

P'At A ir<L f.[ , I Wffl TX , IDl AG/S ,:6,0/ 

H A T A PR T N A H / 1 r * 1 2 D / ,1 RR T / 1 0* □ / 

DATA 1 N S 1 , 1 0 K S b , L 0 H S 1 P / 3 ♦ 1 / , C P US E C / n . / 


COCOQC 

roocco 

cococo 

0003GC 

LOCCCC 

LOCCCD 

OOCOOG 

COLCOO 

CDLOGU 


CCCDOC 

o o 

CTLCLO 

w so 

L0 GC G G 
CCGCQC 
^3CC jC 

Sffi 

if 

LODODD 


Doofoa 

JO iJ 

CO LG 30 

a 5 

CGCnOG 


:^C(jPDC 

rocoDC 

rccncD 
lod.;iq 
10 coo c 
coucoo 
pncooc 

w 6* 
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SUBHOUTlfJt GOOnCN 


ENTf?Y POIMT C00137 






K» 


STfvRAGC USEQ 


CODE ru Gl; 02 GO; DA 71 CG) D 0 QQ 16 ; BLAHm C 0 MK 0 N (21 CODCDO 


COMMON FtOGKS 

00 0 3 C^AMfX 00 0002* 

DOOM TNAPLR 000r02 

coL-ei rNflt't V G0Cic:^2 

OOC6 CNAMfP 00D0D2 

0GD7 GCIJ7GCN OOOOG3 


tXTEPNAL RFFrRrNCES IRLOCK, NAHE> 


acio 

L G H PK 

00 11 

in PKM t 

0012 

M PP31 


STORAC 

f 

ASSienKENT 

CBLOGK, TYPE, RELATIVC LOCATTON, 

name ) 


GO Cl 


C0D072 

2?SL 

0001 

OOOIGG 

235!_ 

QGOl 


GDC 106 

2<i SL 

o r Cl 


OCOD12 

BCL 

CCGl 

C0DG31 

90L 

0000 

D 

ODOOD2 

BLANK 


D 

00 C 000 

NAHEP 

oroEj 

0 nGOQDQ 

NAMFV 

0003 

D 

coggoo 

NA HLX 

GGC7 

1 

ccraoo 

NOX 

GDDO 

D GOOUDG 

MIME 






QCOl 000 U<l 2S5L QCOl 00 012 2 26DL 

DQGO 000011 INJPS 0006 D COCODO NAKCP 

0007 1 00 0002 NOP 0CC7 I CO COO 1 NOV 


r 




i ^ 


. . V. 


C0103 

1 ♦ 

CCOnGEN 


CGODOC 

00 101 

2* 


SUBiROUTIHC C 0 n 6 tM»IDEK 7 ,lC,IG 0 DC,tI 

raccoo 

t : 0101 

3 A 

c 

PORPoSr 5 CtJtiRAT£ INIEGER IDE fJT 1 P 1 C T I ON CODES GIVEN AtPHANUH'CRlC 

CCLCOO 

C01O1 


c 

CALL SCOUCNCE IGENT 

r ALPMAriUMERiC IGENTlfltR 

roGOGa 

10 i 


c 

IC 

:: initial CGNDtlTON TNOIGATOR 

OQCOCD 

C'0101 

£♦ 

c 

TCODT 

r INTCrtP Gone NIIMPTR 

CnCODD 

:ciDi 

7* 

c 

R1 

r PETURN TAKEN WHEN lOrNTIFIER GAN^T BE FOUND 

rccccc 


0* 

G 

t 

r UN TV AC ARG FOR VARIAPLE RE TURN 

ICGGOC 

n c 1 L 1 

y* 

G 

CODE SCHEME THE SCVENItl COtlJMV IS USED 10 nESirNAlE WHICH CRt’UP 

CCCGOC 

CCICI 

1 c * 

c 

7'Hr cuAinnt tirLONcs. the eollowihg code is used 

2CG000 

CGICI 

1 M 

c 

SlATf 

VARirfiLTS - 0 

CCLEGO 

ccici 

124 

c 

ST Air 

DCPIVATIVEO - 1 

CCGGCC 

«G1C1 

13* 

c 

SI Air 

1 * 2 

CD 0 G 0 Q 

:ci0i 

m* 

c 

VARfflPdCS = 3 

CQCODO 

G 1 c 1 


c 

PA'RAKETCRS - "J 

rODODG 

CGlOl 

1 (0 

c 


JCODl r 0 is used FOR TIME 

COGOGO 

G01D3 

17* 


CnurGN/CNAHiCX/NAMC 

X n ) /f NA ML R /N AHFR m /G N AHE V/N AHE V ( 1 > /CNA HEP / 

COLOQG 

GG1C3 

l?.4 


1 MAMCPm 


COO 03 G 

G0 1DM 

19<- 


C nilMOM/COPOER/NOX , 

NOV , NOP 

cocco: 

U 0 1 a 5 

27 4 


D (1 Uf 1 r P Rf c I S 1 0 N r D r N T , N A he X , N a M r p , n a M E V , n a M EP « N T I ME , n L A N K 

GOCCOO 

C 0 1 06 

214 


OAT A N7 JHr/.J2HT IME 

/rBLANKFl?!! 

. 0 J L! iM G 

CGIU 

22 4 


iFUOfM .C0*ULANK160 IG 260 

OOLCOC 


ORIGINAL PAGE IS 
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com 

23* 

C 

TtST roa TIMC CODE 

00113 

2*4* 


jrMOCMT .«E .NiriKEJ GO TO ao 

00115 

2S» 


irof}C=o 

00116 

26* 


ttC Uif ?0 

r-G116 

27* 

c 

StARCH 57^T7r NAHfLIST 

'0317 

2 a ♦ 

ao 

c/.'. 1 LCKf‘nnnEMT,»/iME X.HOX. It ICODEI 

LG123 

2S» 


If ( irror -Eo.o) 60 to ■jo 

CC 122 

30* 


irt JC.tO*OI HC TUR»J 

C0124 

31 ♦ 


nr TO 25 r. 

CG324 

3?* 

c 

SEARCH VARIAPLC5 WCHfLlST 

rCJ126 

3 3« 

90 

CALI 1 CMPM < IOC NT , MAKE V ,MOV* 1 r ICODC T 

CCJ2ti 

3 M* 


I r n crm ,ut .ni co to 225 

CD 12b 

35* 

C 

sc A PCM P/US MAMttrST 

Lci :d 

3b • 


CALL l.C^'r‘|JtTOfMl,NAMCP,NOX,l,lCODri 

r Cl i 1 

37* 


ir tlCODC ,KE *CI CO in ?35 

OO'l 31 

3P • 

c 

search RAfiAKCini NAMfLlST 

C0133 



Call 1 ckjhc t int m i *m akl p,mop , 1 , iconn 

C0 13N 

'^f ♦ 


in J C('(iE .KC .0) 60 TO 2M5 

G0U4 

M t* 

G 

iDCMirirp r;AN*T bi nccor.NTzrD, 

GLM56 

q p • 


iron:-! 

GC137 



RUURN 4 

CCIHJ 


225 

I rot L riconc *3000000 

:cim 

4 5* 


PT lUr.M 

ODI‘42 

4 6* 

235 

1 CCCI. -1 COOC • 100000 c 

CC.1N3 

47* 


pr 3 j RM 

^ci'm 

♦ 

2^15 

trcnf ricoDE *4000000 

coi^^s 

qf) :> 


Rn UR H 

CO 1^16 


255 

JCOOl riconc *2DCCDC0 

6 C 1 ^ 7 

51* 


RF 7 UF?N 

C015J 

5 ;♦ 

260 iroiif --1 

CC ICl 

53* 


Rf 7 URN 

:DI52 

54* 




coonoo 

CDCGQ2 
C0G005 
cnDPOfc 
LDGCLb 
CGCGl 2 
r.0GLl2C 

:jgl:22 

CDCC27 
U00Q27 
co:,C3 1 
CC2C37 
CCGD37 
COoCH 1 

rD&nsD 
CC Lj (jS G 
G0CC*>2 

1 

jGCnc j 
CCGGt 3 
DcGGt*5 
CGCn72 
t:acr7M 
cnciGD 

G’iU :»2 
:fiU06 
LTMIC 
COCl 1 
CCGl I 6 

r:oiM 2 2 
LDG123 
CDG177 




2 © 
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» ' 


SUPnOUTINE CODtOO ENTRY POINT 000101 

STORAGE USED COOE U 1 000114; OATAIO) OOODSO; BLANK COKnON(2l OOOCDO 
EXTERNAL RErERCNCES IBIOCK, N.A'HE 1 


00C3 

PUTT 

030^ 

KMCDDi 

01305 

CCTT 

0305 

NI021 

0007 

uivnis 


STORAGE ASSliGNMENT IBLOCK, TYPE, RELATIVE LOCATIONt NAME I 

0000 CGOOll IIP 0001 000007 HOC 0001 000034 1226 0001 OOOOS7 SOL OCOO 0 COPOOO 8LNN 

0000 I OOGOOA 1 0000 000014 IlNJPt 0000 I 000010 J OOCO I 000007 K OCOO D C00002 BAR 

0000 D 000004 NUH 


C0ID3 

1* 

CCOOtOD 

C0C007 

DD lai 

2* 


sue ROUTT NC GOOL OD C N AME t N » IK !T AL 1 

CDG007 

DO 131 

3* 

C 

PURPOSr LOAO name: arrays UITH OrrAULT NAMtS. 

G0GGG7 

OOIGI 


C 

CAiLL SroUGNCG WME - N X 1 NAME ARRAY, 

CC00Q7 

r-cioi 

5* 

C 

N - HO. OF NAHCS IN ARRAY, 

OOCC'07 

rrDIDl 

6* 

e 

INITAL = INITIAL GUARACTER UORO • 

DOCCG? 

::oi05 



OnUPLr PRECISION name TNI 

CGuGC7 

GGIOM 



nOURLE PnfGIS10:N P'LNKriNiTAL.KA'RrNUrt' 

CCGOr 7 

CD13 5 

V* 


DATA PLNK/12H 

EDGLC7 

: D 135 

ID'* 

c 

sga-n names* 

G0CDG7 

CD1D7 

11* 


OG lEO 1-1 ,N 

EDljGDT 

roie? 

IZ* 

c 

PLAIIK CHIT Na^ME. 

rOEGOT 

coil 2 

13* 


NAME ITirPLNK 

LDcnc 7 

CD M2 

m * 

c 

PUT INITTAI character IN 1ST CHARACTER OF NAME* 

DDLnC 7 

Gull3 

15* 


CALL PUT! <NAHE(I)*MIN1TALI 

COCGl 1 

GCM3 

It* 

c 

eoNurJiT 1 TO SCO. 

r.OLDl 1 

oDim 

17* 


ENGOUEMJrllTKUHll 

LQCG2G 

CD 117 

19* 

It 

rORMATMlGl 

LaoG27 

3032a 

19* 


H =2 

rD0027 

l0123 

2C* 

c 

SCAN CHAPACHR5 OF NUM FOR NUMERIC VALUE. 

GOCD27 

CD121 

21* 


ilG 5 a J-3',10 

■C3L3Zti 

Q0121 

22* 

G 

GET 3TH CHA1. ACTC P OF NUK* 

L.0LQ3a 

CD12M 

23* 


GALL PtTTfNillhitJvKARl 

CGLC34 

&G12^ 

2M* 

C 

TEST rOP LiLANK CHARACTERS AND SKIP THESE* 

to CP 3 9 

DCU2'5 

25* 


IF CKAP*FO*BLNK 1 60 TO 50 

CGOOq 1 

QC12'5 

2i>* 

C 

lOAD HON-BLAHK characters CONTAINING NUMERK INTO NAME* 

noGO'j 1 

CD127 

27* 


CALL PUT T tiNAMI Ml , K ,K AR ) 

C0CC99 

no 130 

2i* 



rcocE 3 

00131 

2 9* 


50 continue 

E0CiD6 9 


BCS 40180-3 


OC133 mo comiwc 

cons 51# RfTUl?N 

CC13h 32* CND d COOLOO 


COCOhti 

00C064 

COJ113 
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SUmOUlJHZ DISPL* 


ENTRY POINT 0GQ151 


STORJIGE IJSTD CODE Cl) 000177; DATACO) 000020; BLANK COKHONC2I OOOOCO 
COMMON BLOCKS 


%% 


3003 CSCaLC 000366 


EXTERNAL REfERENCES CBLOCKp NAME) 
GD04 LCMPH 

oros tJiUefRc 

0C06 BCPREL 
Q0O7 NLPR2T 
3010 NLPK3> 




STORAGE ASSIGNIMENT IBIOGK, TYPE, RELATIVE LOGATION, NAME) 


30-01 0 00127 lOQL 

0001 GLOIOG 6GL 

0 0C3 D CCjCCDG list 


o;cai 0000 32 riOL 

□001 000120 aOL 

ore. 3 I OQiGOOG NPLT 


QC01 000132 20 GL 

□DOT OODl 25 90L 

□ DO 3 I 0:00 36 0 NPLTS 


0001 000137 ^ 3 D 0 L 

cioco T 00:0 007 ico^de; 
0003 T) COD 170 HVAR 


ocoi ccno 6 i ncl 

0000 C3C012 TN4P1 

0GC3 R COOCOO SCALE 


GDI 5PL A 

SUBROUTINE DI SPl A 1 1 OS PL Y , IPHR S , HO DE , ICOL ) 

C PURipiOSE INTERPRETS INPUT DATA PHRASES THAT OESCRIBE GRAPHIC DISPLAY 


lOSPL Y 
IP MRS 
MODE 


CALI SEO'UENCE lOSPLY - 01 SPLAY nUMBCR* 

IPMRS - phrase to nr intcppreted- 

MOOE - Mfior 1,2,3 TNOICATCS THAT VS , YR ANGE ,0:R 

XRANGC RESPECTIVELY WAS THE LAST INTRUCTION* 
TCOL - SET EOUAL TO THE COLUMN NUHOER IN SCALE, 
XPMHON/CSCALE/SCA'LE (5,4 ,6 r ,NV AR ( 5 ,2 ,6 | ,NPLTS; 61 
D-nURLf PREC7S10TJ N V AR , I PHR S , L 1 S T I 3 ) 

■O AT A 1 1 S T./ 3 6HV S Y:R AN G X XR ANCE 

CURRENT NUMPEr qE PLOTS/OISPLAY- 
rJPl T-.VPLTS MtlsPLY ) 

SEA^RCH FOR GGM“ANO UO-Rn • 

GALL LCHrMC IPMRS,! 1ST *3,1 ,1C0PE) 

IF<IGODE.LE*0) 0.0 TO ?G 

SAVE ICflflL IN POOF Aim BRANCH TO SET ICOL IT RiEOUlPEO* 

HOOF r ic OOr 

GC TO (IL-C,?0O,3OD),IEODE 
TEST FOR numeric PHRASE. 

GALL NUnt RC tl PH RS, 160) 

IFlM'nOE.LE*2J 60 TO 4 0 
CONVERT X SCALE FROM A TO G FORMAT. 

CALL PCDiRf L (SCALE INPLT, ICOL. IDSPLY) ,IPHRS) 

1C 01 '4 


CCGD03 
CODC03 
CDCC03 
G0C003 
C0L003 
cnccDi 
SDCr 03 
GDCOD ; 
LOGQOi 
lOLL*C3 
0OuCO3 
LOCOD 3 
E0u003 
UOOGG3 
GOuflOS 
C0GC14 
L. 0 CD 1 4 
D0CD17 
eOLQZl 
COL C2 I 
IT0LC32 
GDC035 
G0CG3S 
CDCG4 1 
CD 005 3 


BCS 40180-3 



30122 26* RCTURN 

LC122 27^ C C0NV£;;T Y SCILC from a TO’ 6 FORMAT. 

CD123 26* HO GALL 3GD PEL ( SCA LE I N PL T .TcO*- , I pSPL Yl 1 3 PHRS » 

CG12H 29# ICOL=2 

C0125 3C* Pr7lJR^^ 

C0126 3lt 60 If I MOnt *EC* I) GO TO 80 

GDI iO 32* NrLT=HUM(NPLT* 1 ,5 > 

OOlil 33* WPlTStiaSPLVUNPLT 

CC131 34^ C LOAD T A^IS NA^*E* 

OG 1 32 35 • NVAlf L\rLT, I , I D5 P L V I rj P><R 5 

00133 lb* GO TO 9C 

C'Cl3i 37* C LOAO )f AVJ S NAMf* 

CCIJ4 3B* S3 WVAJMNi'l T,Z , I OSPL Y J - J PHRS 

f-C 1 3b 39* 90 HPUt 

CD136 40* IPD Rntipr 

nci36 HI* C SET roiUKK TNUlCAtOP TO 1 FOR YRARGE* 

00137 H? • 20G ICOr -I 

LC143 43* finUPN 

0014D 44* G 5ET COLII^IN IWDICATOR TO 3 FOR XRAMGE* 

vClHl. 45* 3QD ICOLr^ 

0C14 2 Mi ♦ RCT UP*# 

CC143 47* FFD 3 OISPLA •*♦****♦♦*•»♦••♦♦•♦•♦•*♦♦•♦ 


CC0055 
G0Q055 
COCOfcl 
000073 
C00C74 
LCCilDO 
CDC102 
cncii I 
cocin 

C0G112 
onci I & 

OOCl li 

00!:l 2 c 

COL 12 S 
000127 
LDOl 2 7 
LDU32 
COOl 33 
COL133 
CDG131 
C0LI4D 
C0CI176 


>o 
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s 


SWPoOllfit OTTIM tmny POINT 000006 

ifopjier usro toncrii oooato; OAinQi ogooqhj nt/iun connoutz} ooqood 

txTCfiwiL prrcPrNCcs ffiLocit, w*ne:i 

0003 NCPP31 

STOPACr 45S1GNNCWT fBLOCKp TTP^t PEtiTIVC LOCATION, NANCI 
0000 DODGQO INJPS 


COICQ 

1* 

COT TIN 

COOODD 

ccaoi 

2* 


SI/8R0UTIKC OTTJM «A> 

COOOOC 

DOlOl 

Z* 

C 


so 0000 

OGlOl 

H • 

C 

ccT the current d*te *md time 

GD&3C0 

i^OlOl 

S* 

C 


CO GOOD 

031 ST 



DlUtNUOH Aril 

LOCCOC 

ccici 

7* 

c 

AU 1 = QITCfl) 

OOCOOC 

i^DlC3 


c 

A (21 = T IKC (II 

ccoocc 

DG104 

V* 


nrrvrm 

C2CCDC 

SC1C5 

If ♦ 



CCC0D7 
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!• 
2 , 
3 . 
<1 * 
S. 
6 * 
7. 


*4 3 . 

*♦1 H 


ASSEHBtCR ROUTINC ri>CT 

TROK rORTRAN- CALL f RCH ICPU*I D • if 1 1«AI T ,1 SUR • 
iiHERE ICPU,IO> ETC* ARC TIHE UNITS FOR CURRENT 
JOB IN 2CG USEC UNITS. 


AXRS 


sen 


8* 

01 

QOQQPO 

72 

01 

00 

DQ 

0 

0G00Z4 

FPCT* 

SLJ 

SAVE RCO 

9. 


DQGQOl 

10 

GO 

0:0 

09 

0 

000213 


LA 

AO,I0210,PCTBFR1 

10 . u 


000002 

72 

1 i 

CD 

00 

0 

030030 


ER 

PC T t 

11 .. 


DQGQ33 

IQ 


QO 

00 

0 

D00031 


LA 

AO, CPU 

12. 


^C-DO^ 

01 

or 

CO 

1 3 

1 

000330 


SA 

AD,*G* xl 1 

13. 


ropo'^s 

27 

on 

□ 1 

00 

a 

Og 0 2 1: M 


LX 

XI t e 1 *0) 

n . 


nor*Q36 

IG 

18 

□ 1 

00 

GDoona 


LA 

AlrU. .U 

IS. 


nonoQT 

IG 

on 

DO 

01 

0 

GOG 177 


LA 

AO . 10 .K1 

1 L. 


nooQio 

i»4 

00 

01 

□ 3 

0 

Goroi4 


AA 

A 1 ,A9 

17. 


OuCOll 


18 

D1 

DO 

GO 001 1 


TLEH 

X 1 , 9 , ,U 

18 . 


EGCG1.2 

74 

G4 

00 

GO 

G 

DODOOT 


J 

%^y 

1 9 * 


CG0DI3 

n 

on 

0 1 

1 5 

1 

COG'JOl 


SA 

AIt*l .Xll 

20. 


DuCCIl^^ 

10 

CO 

03 

03 

r. 

CGCZll 


1 A 

AC,r R 

21 . 


cir-ois 

n 

QG 

CO 

1 3 

J 

0GP0D2 


5A 

A 3, 42 ,X 11 

22. 


0GQ G 1 L 

ic 

CO 

DG 

on 

c 

000212 


LA 

AG.tiA IT 

23. 


nocoi? 

01 

QD 

00 

1 3 

1 

roroci 


SA 

A 0,4 3 .XI 1 

24. 


oGcnro 

10 

00 

00 

03 

c 

CGG016 


LA 

AO.SUP 

2S. 


onac2i 

n 

00. 

iCQ 

1 3 

1 

000004 


SA 

AG,^4 *Xll 

2S * 


cor Q 22 

72 

01 

GO 

00 

0 

00 no 30 


SLJ 

fit STOiC 

27 . 

2a. 


030023 

7*4 

GH 

Do 

13 

a 

GCOOCb 

RETURN 

J 

6,Xil 

29. 

33. 


GGG02M 

CGiOOaG .-JCDOPI 

0 


SAVEREG 

♦ 

0 

31 . 


G0C02S 

D6 

00 

01 

00 

D 

GOOOOO 


sx 

XltSAVCXl 

32 . 


DOC 078 

71 

12 

00 

00 

0 

ODOGOl 


DS 

AO.SA VEAO 

33 . 


00GQ27 

7^ 

04 

00 

QiD 

1 

DGD024 


J 

•SAVE nC6 

3H. 












3S. 












36. 


0CDG3G 

eoCDODOoi 

DO CD 


RESTORE 

* 

n 

37. 


QOOG31 

27 

GQ 

^01 

00 

0 

Qosuoa 


LX 

XI ,SA VEXl 

3B. 


DDPG32 

71 

15 

33 

on 

0 

□00001 


DL 

AGvSA VEAD 

39. 


DODO 3 3 

IM 

04 

GO 

00 

1 

GOD 030 


J 

• RCSTOPE 


42. 




f ro ) 



43. 







44 • 

00 

OGOGOO 

DDOGOGODCGOO 

SAVEXl 

« 

0 

45. 


OGOOQi 

COOQCOQDOOOb 

SAV*^AO 

♦ 

0 

46. 


000002 

GGODDGC3DOOG 

SA VC A I 

« 

0 

47. 







4a • 







4'9. 


0000103 


PCTBE R 

RES 

DZIO 

53. 



C0O000D3G016 

SUP 

EQU 

pcrnF R*n 

51 . 



000000000331 

CPU 

ECU 

PC TOF R422 

52. 



CGOOCDOGOl 77 

IG 

C QU 

PCI or R4 124 

S3. 



COOODCOCC211 

ER 

cou 

PCTBFR*134 
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5*1 • 
SS« 


DODCJOQODD2I2 WAIT EOU 

CMiO 

0G02 13 D0n?10 ODUDOZ 

QDG21*I DGOCOl CDDOOD 


Uf.DtriNCO SYMPOLS 
PC 11 


two ASH. EPnoPS 




SI 



on 


pcforR^irs 
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5URffOU7Il?E FSHELL ENTRY POINT 00012*4 

STORAGE USED COflETlT DOOlQl; OATAiOt 0Q003I ; OLAMK C0HK0NC2) COOQOO 

EXTERNAL REFERENCES (BLOCK, NAKC1 
3003 NEPR3S 

STORAGE ASSIONHENT (BLOCK, TYPE, RELATIVE LOCATION, NAME I 


DQOl 

COCCI 6 

105G 

DCOl 

0000*12 

121G 

OCOl 

000Gi2M 

20 L 

0001 

0000 3A 

NOL 

OGGI 

00 rcB s 

SOL 


□ OCl . 

GOO 10 3- 

7DL 

QGQG I 

DDOOOO 

I 

OCOO 

I 000004 

II 

□ 000 

C00CO7 

INJPS 

0000 

I C00003 

J 


□ COG 1 

DuC0G2 

K 

0000 I 

D0GCD5 

LINGO 

0000 

I CODOOl 

M 







L 


ODIOO 

!♦ 

CrSHELL 


LOCOl S 

OOID^ 

2* 



SUB R OUTiNr FSHELL i I A RRAYVKEY »N 1 

C00Q15 

CDIQI 

Z* 

G 

PURPOSE ORDER AN ARRAY TO 

HAVE INCREASING MAGNITUDE AND 

GGOOIS 

GO 101 

*+♦ 

C 


FORM KEY FOR OROERING RELATED ARRAY. 

DDCOIS 

CD 101 

$♦ 

C 

CALL SEOUENCE I ARB AY - N 

X 1 array of values to 6E sorted 

COLOl S 

CD 1.01 

6* 

C 


KEY 

N X 1 ARRAY OF KEYS FOR SORTING DEPENDENT 

CQGOl 5 

Goiai 

?♦ 

c 



array 

COGC J S 

COIDI 

fi* 

c 


N 

NUllDER or ELEMENTS TO BE SORTED, 

LOLOIS 

CC103 




DIM IN 51 ON lARRAYil VtKFYdl 

OODOl 5 

CD1C4 

ID* 



no 10 I'l tN 


LfLfjl 5 

CGI D7 

11* 


IG 

KCYCI)=1 


CDCOIS 

rjDMl 

12* 



H - N 


cccor I 

LGM2 

13* 


20 

M-Hy2 


CGOfi24 

GC113 

m* 



TF|N>3D,3Q,40 


CCC026 

^Oib 

1 


30 

ni TURN 


CC6Q3C 

( D 11 7 

IL* 


40 



CCCC34 

.'’G121 

1 T* 



no 70 J= 1 ,K 


GCGOlfa 

CG123 

1P» 



l=J 


GQGC4 2 

GC124 

19^ 


5Q 



DC CO 4 5 

CD125 

2Z* 



irCIAnRATM I-IARRArmi 170,70 ,60 

DDLQ5 7 

DQUO 

21* 


60 

L IPP 0-IARf7AYt I 1 


Labnoa 

CD 131 

22* 



JARRAY II )“I ARRAYilll 


C.0CCC5 

OGl 32 

21* 



1 ARRAytl 1 )=LIM80 


C0GC67 

OCM3 

24 * 



LIKPO-Kr y 1 1 } 


00U27Q 

CG134 

2 5 ♦ 



KT Y M UKf.y t II) 


GO DC 7 2 

GCI3S 

26 • 



hL Y f 1 1 1 TL IMp.O 


L0C074 

CD! 16 

27% 



I“I“M 


DDCC75 

CC137 

ZP.* 



irM 177,70,50 


LOGIGG 

CCIM2 

2^ * 


70 

CCMINUE 


COG! 04 

DC144 

lot 



GO TO 2C 


CEO J 04 

Cn 1H3 

31t 



Zr.U J F5HELL 


GCCI4C 


» 



F- 

i' 
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SUPBOUTIHE INIT ENTRY POIKT 00D0S5 


STOSilEr USED COOECn COCObl; DATAIO) 000023: BLANK C0hH0tl(2t COOGCO 


c ::hhok 

BLOCKS 


0003 

coRorft 

cooroj' 

OilQM 

E in 

CDCODl 

COD'! 


030r02 


ciii-yin 

CDC'’'D2 

D0D7 

t tt *■ >^r V 

CH0CD2 

Ou lU 

n;A;-c F> 

croro2 

ocn 

Otic 

one CO 1 

031? 

CMHLS 

COOCOM 

0013 

CUDPKN 

OCCGIO 


external RrrLRCMCES {BLOCK, MAKE) 


COlt) CCDLOD 
0015 PLIr.JT 
00 J 6 UCPRJS 


STORAGE ASSIONKEMT {BLOCK, TYPE, RELATIVE LOCATION, NAME) 


OfJCl 


lI C C iji2 ^ 

1?IG 

GOGl 


DGG036 

I 35 G 

0012 


oqcDOO 

TYPC 

3C12 

P 

C00003 

ERROR 

DCCD 

0 

C0CCD4 

HP 

ccoo 

D 

CCCJOS 

HP 

GCOO 

0 

nooooo 

MS 

ODOO 

D 

003306 

HV 

OCCO 

T 

OGDOlO 

2 

COCO 


ccroiH 

2MJP1 

0D0*<. 

1 

C COCOG 

P4T 

0?1 2 


OOCGOl 

IPRINT 

OCl 2 


0QCCD2 

HDDt 

oon 

I 

ODDOOl 

H 

CCJO 

0 

Qccoaa 

HJiPtEP 

CCC6 

P 

GLCDCJO 

N^MfR 


□ 

naoGoa 

i;Ahr V 

0G05 

P 

oaccQo 

UJ, 

001.3 

I 

□OOCCO 

UH 

0CG3 


CGC002 

HOP 

0003 


DCOGOl 

flOV 

0CU3 

I 

cooaoa 

NOX 

OCl 1 

R 

OODOCO 

XI c 










CCICO 

I < 

CTH n 

GDOCCO 

CC1C3 

2 ♦ 

c 

DvrRLAYi i>m , 1 tOJ 

cccccc 

r-DlC3 

3* 

c 

rr.oGPA^ i?n r 

E3L3CE 

3C 101 

4 • 


SHtPmiuifC iHir 

C0CC3C 

CGiOl 

5* 

c 

VERSJOH 1*2 RCVrSEO HAY 15 1975 

ccusci: 

CDICI 

6* 

c 

PURPOSE TO JMTJAUTZT THTECRATOR COHT POL , P A R HE TE R fiA«E,57*T£ 

EOCCCC 

rciGi 

?♦ 

c 

NAHt , RATE 1/AHt, VARIARLE WARE ARRAYS 70 OCrAUlT VALUES 

roLccc 

r n 3 1 

6 • 

c 

DESinJEO by J.D. f-UPROUGHS FEB 1774 

CGCOCG 

CCIC3 

7* 


couhoh /ccriMP/uor t ^UQp/cjni /u;t i i ) 

OCLCOD 

coi:q 

li.* 


COH!'0*:/CnAHr //hAHTX ( 1 J/ CHAHCS /HAkFR (. 1) / CM ^ HE V/HaKEVU 1/CK'AHEP/ 

CCCC33 

ooit:<< 

11 • 


1 MAPrPF 1 J/C Yir/Yir f 1 | 

E3GL1.C 

CC135 

!?• 


CCK»*D%/EMRlS/AMTrPr, I PP I HT ,H ODE » FR P OR I 1 1 

CCDC3C 

LOUb 

1 3* 


COHPCJ,/Ci.l*IjKN/HN,M { 7 J 

EC CC 0 u 

C0107 

14 • 


t^CUf;!.C PPf CU7 OM fi/.HF X ,MAM tR >HAKf V AHEP 

Lcorcc 

3 0110 

15^ 


cicupir Fj<rcisio^ hs/i?hs 

coccoc 

CC112 

16* 


Pf-uraf pprcisiOM hr/ichp 

COLCOO 

OCl 14 

17# 


noupLr ppicisioii Hfvi ?hp 

3CCD0C 



o? 

(Ti 

XA 


O 


CO 

0 

1 



U 011 & 
roii 6 
C012D 
C0123 
OC124 
OG125 
0012** 
CG125 
':ci25 
CO 12 7 
CG12 7 
ce l?7 
C0I27 
: e 1 2 7 
r.0127 
COliO 
□ □ 131 
00112 
00134 
CO 137 
C0J41 
00142 
C0143 


!«• 
19 * 
2 C* 
21 * 
22« 
23* 
24* 
25 • 
2 t»* 
27* 
?fi* 
29 * 
3 (;» 
31* 
32* 
33* 
34* 
IS* 
36* 
37* 
le* 
39* 
4 C* 


nouRLF pprenioN hv/i2iiv 

C IN1TIALJ7C INT ARRAY 
DC 10 1=1, wax 
rPR0Rin = .i 
XIC II » = c. 

10 nticnri 

C LOAD STATL NAUr ARRAY WITH SOOl * S002 , . . • • 
e c At t C 0 OL 0 D I (4 A MI X , NO X , H $ I 

C LOAD RAH tjAMC ARRAY UITH RQOl ,R 002 , . . . . 

CALL rorjiLon (NAHCR,N0X rMRl 
C LOAD PARAMfir^? NAMf arp^V viTH P GDI, POP2, • 
G GALL rOPLOD iNA’MrP, NOP ,HP1 

C LOAD VARfititr name: array with VOD 1,VQ02,.*, 

c CALI rOOiOOlMAHE V,fJOV , HV ) 

C CAL COL A Tf iNfUriS FOR WORK STOR AGI 
NNz NOX*R£)X * 1 
N c J I zntl^ IJ0X*N0X 
IMNtD.LT^lSfll N Cl 1=168 
DO ino 1-2,7 
ICO fj Cn::^M I -1 I ^NOX 
CALL PLINII 

rctdrn 

e»D a INI? **«#*i**«f **4***«*«**«^#**« 


o 



CODOQC 
COCGOO 
CCLCDO 
00CGD4 
CGC 005 
OGDOOt 
r00CQ6 
CODOC6 
COCCCb 
DC 101 1 
CCLlJl 1 
COCiCj 1 
COCCI 1 
cncni 1 
orocH i 

COijCiIb 
CDL023 
CGC025 
GOLi 0 J 6 
CCC036 
10^04 I 
C0CC4 3 
100060 




BCS 40180-3 



subroutine inputs entry point 0Q023<* 


STORACr USFD contril □□□2S0; DATATGI DG0056: BLANK CONKONC2T DGOCDC 
COHM-OK BLOCKS 
OOn.3 CCQHM DDQ023 


EXTERNAL RrFCR'ENCES tBlOCK, NA«E I 
OCOM NXTPH 

ones KUHERC 

CiODti PCrLTL 
OOOT LCMPH. 

JO 1C r;Rf>ui 
3QU M03V 
JP12 N10:i 
0013 Nwnut 
Q31R N ERR 31 


STORAGE ASSICNPENT TBLOCK , TYPE, RELATIVE LOCATION^ NAHE i 


3 GUI 


GG0C12 

lOGL 

GGDO 

□OG02S 

I 2 ir 

OCOD 


000026 

14 ir 

DOOl 


00D203 

17SG 

OCCl 

ODPOSu 

200L 

DODl 


2LC21S 

2DRG 

0001 

000G75 

220 L 

0 001 


OGOlOb 

24 CL 

0001 


D00146 

270L 

CGOl 

0C0151 

2eCL 

DO Cl 


COG 155 

3CGL 

0001 

0001 7R 

34 OL 

DOOl 


OOG2G6 

3 a GL 

OGOl 


CG0221 

5D0L 

GOul 

DC0223 

52QL 

30 00 

D 

QCG014 

ElLN'K 

0000 

I 000017 

I 

OC03 

D 

CDDOOO 

icon 

OC03 

D 

000000 

ICOttL 

CI0C3 

1 CCOG22 

INDEX 

GO CO 

I 

000022 

INDCXS 

GCiOC 

000043 

INJPS 

D0D3 

D 

0DCO20 

IPIIRS 

0000 

T 

000021 

ISl AT 

QGCQ 

I ObOU23 

J 

OOCQ 

I 

0CD023 

K 

OGOG 

I CG0016 

hOOE 

0000 

I 

O0G024 

NM 

OQCO 

D 

000012 

value 






00100 

u 

CINPUtS 



LDCQ02 

GO 101 

2» 


SUDR OUT 1 NE INPUTS i A ,N , N , NM A X> 



C0GjQ2 

CDlOl 

z* 

c 

VERSION !• REVISEO MAY 22 1975 



lCCD02 

COlQl 

4* 

c 

PURPOSE AlLOV FREE FIELD INPUT OF ARRAY DAT* 



CQCD02 

liGlDl 

s* 

c 

CA.LL SEQUENCE A ARRAY 10 RECEIVE DATA 



ZGCrOZ 

rcioi 


c 

N - NUMBER or RoWS IN APRAY 



courc2 

i GlCl 

?♦ 

c 

M - NUMBER or COLUMNS IN ARRAY 



CtD0a2 

ro 101 

e* 

c 

NM=AX - ROW niHENSinN or ARRAY A 



C30CC2 

OCIDI 

9* 

e 

PtTMOO THE FOLLOWING COMMANDS ARE RECOGNIZED 



CC0002 

DCICI 

ID* 

c 

2 - ZERO ALL ELEMENTS OF ARRAY 



CDCCG2 

ccioi 

11 * 

e 

1 :: SET ALL CLEMENTS OF ARRAY fO 1-E36 IInFInTTYI 



':0L302 

COIGI 

12* 

c 

G :: INPUT DATA TO DC GIVEN BY COLUMN 



:dldo2 

ccioi 

13* 

c 

R - INPUT DATA TO PE GIVEN PY ROW 



CI0C002 

:,niQi 

14* 

c 

0 = INPUT DATA 10 \\t GIVEN PY DIAGONAL 



DDCU02 

CD I El 

15 ♦ 

c 

FOLLOWING the C0L» ROW, DlAf.^ COMMAJUlS THE ROW AND COLUMN 

LOCATION 

CCmC02 

301C1 

16* 

c 

AT WHICH RATA LOADING IS TO START MUST BE GIVEN* THESE 

VALUES 

C0C0D.2 

EG 101 

17* 

c 

APE roLLOVEO OY ELEMENT VALUES. EACH COMMAND, ROW NO*. 

COL* NO«t 

600002 

4.0101 

18* 

c 

OiR CLfMCNT VALUE MUST BE SEPERAUD BY ON=E OF THE STANDARD 

DELIK17C 

COOC02 



BCS 40180-3 105 


COlQl 

X9* 

C 

ST*ND*RD OClimrCRS ARE THREE OR HOPE SPACES; COHHA; EOUit SJ6H; 

rcuoo 2 

^oiax 

20* 

C 

irrj PR RIGHT PJlRrNTHGSlS. 

GD0002 

00101 

2 !♦ 

C 

ocSJr.wrn nr j,o . burroughs hat 1975 

C0CO02 

CD103 

22* 


COrtHOH/CCOHtt/rCOHf a 1 » 1 PHR $ * IN D£X 

OOOC02 

CQ104 

23* 


ciHrNSJOtv iraHtfSKAii) 

CnC0G2 

CC105 

24# 


DOUDir PPETCISlaU JCOH, IC0HL,IPHRS,VALUC 

C0CC02 

ccias 

25* 


TJAIA JC0rJL/*2 1 c 

CCG0G2 

:.C1D£) 

26* 


1 'B 0 • 

CCLZDZ 

: D n G 

27* 


OOUFIE PRFcrSlOfi 91HK/12H 

GDC0C2 

^01 JO 

?P* 

G - 

— > 5tl or FAULT MODE T2 COLUMN INPUT 

CCu002 

CG112 

29* 


HPor=3 

C00CD2 

LDU2 

3C* 

C r 

= HOOC - none or IHPUI indicator, l :: 2tP0 ARRA7 

cncnca 

f D1 J2 

31 ♦ 

C 

2 = Sir ARR/.y TO J,C36 t 3 = COLUHN INPUT, % r ROM INPUT* 

CCLCG2 

( C U2 

32* 

C 

5 = diagonal input. 

CCG002 

acm 

33* 


1-1 

OCC004 

GG 11 (| 

3 4* 


J^l 

006006 

CC 1 1 *i 

36* 


ISlAlrZ 

CPDOGT 

CU5 

36* 

C = 

=r=rrrr ISTAT = INPUT STATUS INDICATOR. 0 = ROW HQ* NEEDED; 1 = COL 

ccona? 

C0U5 

3 7* 

e 

2 = READT rOR DATA VALUES 

COCOG? 

G01J6 

3ti * 

100 

JNOf XS=1H0E V 

COGGl 2 

e cu 6 

39* 

c - 

”> LOCATE next phrase 

CDDUl 2 

DO 11 7 

4D* 


CALL NXTPHt ICON, INDEX, JPHRSJ 

GOLOl 3 

CCJ2D 

41 • 


ir < IPirps.Nil .BLNK ICO 70 2D0 

cccrao 

DC 120 

42* 

c * 

— > RCA D Ntxr CARO 

C00C20 

OG122 

4 3* 


Rr.ADCG, J2J ,rUD-5 2C>ICnH 

C0CC2 3 

”0125 

44 * 

121 

rORPAMaAllJ 

0D6C34 

r0126 

46* 

J40 

Wf?J TC (t , 14 1 HCOH 

CCG3J4 

C013i 

Hu* 

1“! 

FORHflIt/rCH COHHAfJD CARD >,5X,8A10I 

CO 004 4 

GDI 32 

4 7* 


iNontn 

C3CG44 

COl 33 

4?* 


CD TO l-^D 

GCC04 6 

DuJ33 

4»3* 

C - 

— > TrST rOR NUHCPIC PHRASE 

G0GO4 6 

nci34 

SC* 

200 

CAU i;UNf PC tIPHRS»l3CrJ 

LCGns : 

00 J 3<4 

5] * 

C - 

NUPCRJC PURASr OCTECTED 

ODCOSC 

GDI J£. 

S2* 


call PCfHTL fVALUr , IPMRS I 

EOGjS 3 

DC i SL 

53* 


irt TSTAT-l 121D,223,24D 

unoas? 

COlHl 

54 * 

2i0 

1 “V A L ur 

ccrot 3 

ooma 

ss* 


rSTAT*l 

CCG07 J 

Gom J 

56* 


GO TO IDO 

LDCD7 3 

G C 1 4 4 

S7* 

220 

jrVAi Ji£ 

0066*75 

DDl4Ji 

S6* 


19T ATr2 

:0C1C2 

re 146 

59* 


CO TO JCO 

C06134 

CO J46 

6C* 

C - 

TESTS TO LIMIT INPUT TO GIVEN ROW AND COLUMN DIMENSIONS 

000104 

0014 7 

61* 

240 

IF 1 I ,r T ,N-OR. J- 6 r,M)G 0 TO IQO 

CCC16C 

ODJf 1 

62* 


K-J tN#-Ax*f J“1 } 

GC0123 

CC1G2 

.63 * 


» «K 1. 'VALUE 

CCGIJG 

coisa 

64 * 

C ' 

— > I'lCPEflSE INDICES OEPENDlNo ON INPUT MODE 

ecu 3C 

00lb3 

6 5* 


IF(M0nt-4 12 P.o,260.276 

ecC J 34 

D0J56 

66* 

260 

J=J*J 

C0014 1 

ro JS7 

67* 


CO TO ICO 

CDCI44 

cezoo 

ta* 

270 

Urj 4 J 

C0C14 6 

CCJ61 

69* 

28 0 

1-1*1 

GCGI51 

LC1G2 

70* 


GO TO 300 

ere 153 

CC U*2 

71 * 

C - 

*— > alpha phrase DrrrcTCD 

6CG1 53 

"0163 

7?* 

3^0 

CALL lCHPHriPHf!5,TC0ML,5t 1 tMDOEJ 

ecu 5 5 

G 0 i 6 4 

73* 


1 r ( HflDE ,f O.D JCO TO SCO 

60C!t.3 

0CJ64 

74* 

c - 

— > RLCTORE INOrx TO PREVIOUS PHRASE SINCE ALPHA PHRASE IS NOT R 

CDGlb 3 

00166 

75* 


IF (More -2>34D,3C0,310 

OCGI t 5 


o o 

vtj Q 

::::: a 
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com 

76* 

310 

TSI3T=0 

000)71 

C0172 

77* 


60 TO 100 

:C0172 

(i01T2 

7S* 

c 

> 2ER0 ARRAY HODC 

0CD172 

00173 

79# 

3*ID 


000179 

0 C 1 7*4 

BZ* 


00 36C 1=1 *NM 

DDOl 76 

'icnr 

e 14 

360 

Am = r. 

COG2C-3 

03DC1 

a 24 


GO TO IQQ 

LCC2G<* 

CC201 

£3* 

G 

> sn aiTRat to i.e 36 riNriMiTti 

CPC2U9 

0C2C2 

a*4« 

360 

f4H=rm^x4« 

C0C206 

0C2Ci 

fl' • 


00 900 1=1, T4H 

DDL? 1 D 

DC206 

et 4 

m}G 

All 1 = 1.036 

0C0216 

00 210 

a?* 


CO TO 1.00 

DCC21 7 

0Q2U 

&P 4 

sno 

iKor 3(=iNoeits 

000221 

DG212 

694 

5?0 

prfuRM 

C0D723 

0CJi3 

9 34 



C00297 


BCS 40180-3 


SUOROUTINC iNTfRP fNTRT POINT 0C1R77 

STORA&t USED COOEfn 001510; DATA (01 OOOS77; BLANK COHhON(2l 000000 


CCHKON PtOCKS 


DC31 

CNTRLS 

DQ0C04 

OCDM 

rOVRLt 

0D0C1C4 

02Q5 

CIO 

■C30C10^ 

omc6 

CXlC 

CP 0031 

0 007 

CUORK 

Gcono? 

L»G10 

CP 

DP03G1 

son 

rjM 

OOUf'Ol 

0012 

CX 

cnonji 

jon 

CAICI 

CDcnoi 

OOl'si 

cx jr2 

coocoi 

0015 

CA1C3 

ODOOOl 

0016 

CN 

crcoc2 

0017 

CN-AHCR 

OCOf^C2 

0C2Q 

Cf;/'r’rv 

Er0032 

0021 

CNAPr p 

cconos 

0022 

cu‘j n A 

tOOPOl 

OG23 

CLi*’l TR 

C3C00 1 

0024 

CliMI V 

oncjool 

0025 

CUM 1 TP 

03QP01 

UG26 

f Sr^LE 

C00272 

3 027 

CS^PAf? 

030026 

0330 

roPOEn 

000*^03 

0Q31 

CT Trt 

UQOCOl 

D2Z2 

C/ INI 

L0D036 

3333 


C00'’2C 

0334 

CPPOV 

000033 

0D35 

C Pints 

DOCrlOM 

0336 

CCPPH 

COOD2 3 

0037 

CT^ibMA 

□r3ro2 

0040 

CPAXO I 

0303C2 

0041 

CL CC7 A 

^3 1 

00 M2 

Cl ADLC 

caunoi 


EXTCflWAL RCrERFNCES CeiOCXt NAPE I 


0C4 3 

rpTi 

30M»i 

NX TPM 

3CM5 

LCT^PM 

OOMfc 

KUKIRC 

0047 

RCn*‘FL 

0050 

XT R 

3051 

riA‘"rs 

0352 

VAt UES 

33S3 

ni'.pLA 

3054 

(onoEN 


o 
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0055 TITLC 

0056 T AP IN 

oosT N^nus 

0360 M024 

0D61 NRDUl 
uG62 NI031 
DO 63 NCr>r^ZS 

oom riiDii 

CC65 M PR3S 


STOPACC ISSlGNf'rNT C&LOCH* TYPE, RELATIVE LOCATION^ NAtiCl 


OGOl 


1G0C55 

ICCL 

cooc 


OOC342 

ICIF 

ooao 


D00343 

losr 

0 301 


0C3105 

1*4 CL 

GCUl 


D00222 

160L 

3001 


000306 

165L 

ccoi 


COClMb 

i7fcL 

GOOD 


DDC35I 

177F 

0001 


000361 

17BL 

D3ul 


CD0M73 

2 DDL 

□noi 


OOD5DO 

210L 

aooi 


OOC50Z 

21 5L 

□ DDL 


CCn513 

212L 

OCOl 


G00516 

2344L 

3D01 


30C521 

2 3 6L 

cnno 


LCr^23 

2*4 7 P 

OGOl 


r>CD662 

25GL 

3001 


000570 

26 GL 

0001 


CCC5<<4 

275 G 

C231 


Q:C-6C4 

2fiCL 

cool 


00C612 

2 9 CL 

onci 


CCfL36 

32CL 

OfGl 


0D2632 

32SC 

DGOl 


OOC645 

3 3 3L 

0001 


DCri.56 

340L 

GfOl 


C3C647 

3*4 IG 

oonj 


000663 

352G 

acoi 


0L0732 

M?ai 

0001 


n007 1 3 

4 3CL 

oroi 


QGQ724 

44 CL 

OOCl 


CO'^757 

*4 p. D L 

ccoi 


0CC765 

53CL 

GCDl 


0012 73 

500 OL 

OuCO 


2Grt<76 

S02GF 

aroo 


DDC6GM 

5030F 

acno 


DUC513 

505CF 

coco 


cacszq 

51 DIF 

CCrOl 


nc0773 

5?GL 

0001 


001020 

5 3DL 

OCOl 


CblD*4l 

542L 

OCOl 


DDIC45 

545 L 

3 001 


001076 

54 6L 

OGLl 


CGin ! 

55DL 

DPQI 


001351 

56GG 

ooni 


^01120 

560L 

3C01 


COI 13G 

57DL 

OODl 


C01I33 

5*JCL 

OCOl 


001 I 35 

5 9CL 

COCO 


GC05M1 

6PD1F 

Croi 


CDl 't03 

631 C 

DOOl 


noi 142 

6I0L 

uOCl 


ocim? 

tlDl 

0”GI 


nOl 152 

6401 

0001 


001154 

C5CL 

0001 


C01164 

tPDL 

GODl 


031)66 

6401 

ULOl 


oqi 1 71 

7J3L 

OOUl 


:C1177 

72 0L 

oral 


0D3326 

8 3L 

0 001 


001234 

80GL 

0001 


GGlZll 

9PDL 

CODl 


DD1212 

92CI 

. 3000 


000443 

42 If 

0001 


C012GG 

945L 

or-Di 


0L12S I 

95CL 

3003 


00C454 

95 IF 

00 11 

ft 

acrcao 

*IN7 

oroc 

ft 

f'OGi 1 3 

CPOTL 

COflO 

ft 

nOC3l2 

cpsrc 

GOGO 

1 

rcrji 7 

I 

a.cc 

D 

GOCl 70 

T*^L UK 

3f DO 

D 

nool 72 

IC 

oDcn 

I 

QCC321 

rrci 

crzt 

D 

OCQOQa 

iroM 

□COO 

D 

CODCOO 

J C OrtL 

GOOD 

J 

ccrsib 

ms PLY 

coco 

I 

CC0307 

iFft 

3003 

T 

03C9Q2 

iHonc 

CO 3 5 


:cro3i 

iNOWft 

D3D3 


003555 

3 NJP% 

0004 

I 

OOCCOQ 

INST 

CDC-Q 

3 

G0C3:6 

10 

C3U3 

: 

GOC323 

IOC AN 

3 035 

1 

03CC02 

IQPT 

0035 

I 

4^ C VfC 7 2 

IPOPT 

ore 3 


3033C1 

iPftTNT 

3 one 

D 

000174 

IPROGN 

GG05 

I 

GCCC30 

int AO 

CGCC 

X 

DOCJII 

1 sun 

L'CQO 

I 

030320 

I T NO 

3000 

I 

0CO325 

J 

GC4 1 

I 

OG0033 

LOCTAB 

3604 

1 

'^OOCOZ 

LOKSIM 

D3<*G 

I 

UCCCOl 

PAYniK 

orcD 

I 

G00315 

MT;DF 

0C21 

0 

DOODDO 

NArEP 

0G16 

0 

rcrcDO 

NAMfX 

0002 

I 

GD331M 

N A h P ft T 

0 00 0 

n 

000166 

NO ht ■ 

0 0 33 

I 

Gcrcoi 

K*OV 

QC3D 

I 

PO3QC0 

KOX 

QC26 

I 

000264 

NPLTS 

0025 

1 

rorioo 

NUNTTP 

C023 

I 

rCDOGD 

UUHMP 

3024 

I 

OOCOC3 

NUNll V 

0013 

ft 

oorroj 

P 

0035 

D 

003343 

PioTin 

3033 

0 

OOODC3 

PftONAH 

G03H 

ft 

occcoo 

PVAIUE 

GC26 


CCDJ33 

SCALE 

3327 

n 

cjoDca 

SMPAR 

0331 

ft 

:g':'!: 3 c 

TiHi: 

ore? 

0 

30GGDQ 

WORK 

3012 

ft 

OOCOGO 

X 

OOIM 

ft 

DGOCJQ 

XIC2 

0015 

ft 

COQGCO 

X7C3 






OCIOG 


1 * 


CTNTERP 


OQOl 


0QCQ66 

lUt 

OCOl 


conioD 

12DL 

0001 


000310 

16BL 

0001 


CU0312 

37DL 

0301 


000464 

laOL 

DCGO 


CCP371 

laiF 

oroi 


000505 

22DL 

□ COl 


0OD51D 

23DL 

OCOl 


0DC524 

240L 

OCQl 


C0C533 

24SL 

OGOO 


G0L4O2 

263QF 

CCCl 


C0?S76 

27CL 

OCOl 


0GG62C 

300 L 

GCUl 


CCP626 

310L 

OCOl 


000642 

333G 

GD31 


car652 

3!BL 

OCOl 


D0C66Q 

36CL 

CCCl 


C0n67 1 

4 ICL 

0001 


006735 

4 501 

GOOI 


CCP746 

46CL 

OCOl 


001275 

5DQSL 

CCLO 


Cuf.467 

5C1CF 

OLDl 


DO 12 30 

5D7G 

CC31 


GO 14 14 

5 1CCL 

0001 


DO 13 15 

540G 

OCOl 


CC1D31 

54CL 

o:o3 


D0342S 

54 7F 

C.C31 


60133 3 

5ECG 

DGOl 


C01126 

562L 

OLCl 


CO 136 7 

5 7C-G 

CCQl 


DOl 137 

fcDOL 

CCCl 


DO ! 4 3 6 

6 02 CL 

0301 


001432 

614 G 

etoi 


COl 14 5 

62CL 

OGOl 


OCl 157 

66QL 

croi 


D J n 6 1 

67CL 

QLGO 


DDC3?a 

71F 

LCCl 


CO 1174 

71ul 

DCDl 


001 205 

62CL 

GCH 


eurniT 

9DL 

3C00 


QD0447 

922F 

DGCl 


CD1236 

940L 

OCOl 


DGl2tC 

960L 

C GDI 


L3 1 2 6 3 

9P.CL 

QC04 

R 

000303 

CPUSEC 

0t03 

P 

ccn:33 

1 ftpnn 

0027 

I 

G3CC24 

1C I NO 

CCCD 

1 

ccriP2 

1 CLHA X 

GDOO 

I 

000305 

ICPSFC 

CD*.5 


100302 

r n 1 A G 

0C36 

1 

0CC022 

iNonc 

DC3S 

I 

CDCDDD 

1 NO PIT 

GCD3 

I 

OOCGCO 

msTo 

LCll 

I 

C0CCD3 

TNT 

Q036 

P 

C00C2G 

irnRS 

occe 

I 

C0C3O3 

IPNPAX 

QDCO 

D 

000214 

iPftOGV 

occe 

I 

C2C-304 

iPV*'AX 

0000 

I 

D0C31C 

IfAl T 

CCC5 


CCC301 

iltpite 

DCOM 

1 

C3CCC1 

L0HS5 

CC32 

1 

ccrc24 

LPFl 

0017 

n 

D30EC3 

NAIICR 

0D20 

0 

LOCLiDO 

hA^*f V 

0030 

I 

000 C 32 

NOP 

GC40 

I 

CQGCOG 

NOT A6 

OGCO 

I 

0G0324 

MAO 

GC?Q 

1 

C0QZ22 

KUMT 

0022 

I 

DOUCOO 

NUN IT X 

GC26 

R 

CLC170 

NVAP 

0C32 

0 

D03CCC 

PRTNAM 

UC35 

n 

COCC52 

pintf 

0342 

ft 

COOCCO 

TABLES 

0C37 

D 

CGClOO 

T ARNAR 

0CO6 

ft 

D0DCG3 

XIC 

GC13 

R 

CCCODO 

XICl 


COuGOC 
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, -,_-■ ■ 

- _ - . 


■- - . — * — 

... 

.... . ... 










?PIOO 

2* 

C 

nVCftlArtlNTCRPfZtO) 



GOCOOO 

20100 

3* 

c 

PHOGPAM IHTtPP 



cocco c 

roioi 

<*• 


subroutine: jmterp 



CO CO DC 

COIDI 

5* 

c 

VtRS:o» J.l REVIStO OCT ll I»T6 


COGDGC 

lUlQl 

6* 

c 

PURPOSE 



wC ui c -J C 

CCICI 

7* 

c 

RCADS*PJ?1NT5 AND INTERPRETS INSTRUCTIONS FRO« DATA CAROS 


CCGCOO 

JG1C.1 

e* 

c 

CALL 5C0UEKCE 



cocccc 

^ClCl 

5* 

c 

JRt^O • READ UNIT NUKRCR 



CCLCCC 

oOlzx 

IS* 

c 

INST -- INSTRUCT! ON NUMBER 



Lccr jC 

CCIOI 

u* 

c 

DESICnCO by J.D. FUR80UGH5 FEB 1974 


IQOCZC 

coiai 

12* 


01 KEN 51 ON A INI 111 



r E C GOD 

cci?:** 

13* 


COHHON /CEIT^LS/INSTO , I PRT NT » IMHOE , ERROR f 1 ) 



«jC l c c 

L C IOS 

14* 


COMMON /CcVoLY/!NST*L0KSSiL0KSIN,CPUSCC/C10/IPEAD,IURlTtt 

iDlac 

CDCCSC 

cc i::6 

1 5 • 


COMMor^/CXlC/^IC ( 1 ) /CuonK/VQPK M I/CP/P n I/CJNT/INT 1 1 1/cx/A U 1 

so cc ^ 

1 J7 

1 f* 


ccHi-t:*' ycx J Cl /X 1 C 1 ( n / cxi C2/X I r? 1 n /cxicz/xj cii 1 1 


LCCLCC 

3cua 

17* 


CCMPCI-/rNAMCX/74/.Mr XM 1 /CN#Kffi /NAME R t 1 >/CWAHE V/N AttFV C JJ /CNAMEP/ 

cccccc 

-C M3 



1 >.AlM P< 1 1 



LULJZC 

rciii 

19* 


CGKPON/ClNil TX/fUIN 1 fX« 11 /CUN If R/>rUNI T ft 1 I 1 / CUN ITV/HUM 1 V M 1 /CUN ITP/ 

CPCCCC 

ctc n i 

?0* 


J NUNITF^ f ! 1 



CC O'C D 

:;ci 12 

21 • 


CPKPCN/C scale /SCALE ( 5 r 4 < b AP 1 S , 2 , 6 » , NPL I S <6 1 


cccccc 

nail J 

22* 


COMMON /C5H.PAR/&MPAP « 1C J /I ClN0i2 J 



C C C C 0 0 

con** 

?Z* 


CCN»-0N/C5r-arR/NGX ,NfJV ,N0P/C1 I ME/r IME 



cc-rcc 

nous 

24 9 


CCHMON/CPRI NT/PPTNAM 1 1 0) ,Lpri UO) 



CDCCCD 

Lcns 

259 


CntMGN /CFPnN/PNONA^- < P 1 /C" C 0 V /P V A LUE ( 2 7 ) 



corr.ee 

00117 

26* 


CCMpOfi /CPIOTS/ iNfiPl T MND.WR, lOPT Cini.PLOTJO 4 5l,PTITLEt 

fl» 9 

cacECO 

r Cl j 7 

27* 


♦ jpopinci 



EaCDCt 

t C12D 

2H* 


CCMMCN/CCCM^V ICOM ( C » , IPNRSMNNEX 



cGcccr 

:.01L3 

2’S* 

c 

CO>'HPN/COCrn- /NX ^NU,NS,NC ,N7S , NR C , I XOC , I UO C » IOC AN , I PO lNTf25 » 

CCCCD2 

CCUl 

3 :* 


CCMMOLVn A BNA / TA1< NAM i j ) /c^AXO l/NOTAPtMAXOlKl ll/CL OCT A /I.OCTA 3 f 1 1 

CCCCGO 

CO 122 

31* 


CPMMO^ /CM?| f /TA.iiLE^ < I 1 



4* D cc ^ C 

30123 

329 


OOlJtir Pt-fClil OH fPHf:S, ICnr.Lt 59 ) ,>;#*<C)t,M*KER ,t<A ME V ,M AKEP *«0B It 

urccro 

00124 

33* 


ocurtr precision none ,pnGnAM,HiTNAM ^icom^shp ap. 


LCCCPO 

DD124 

34* 


1 UPHAH, If.LHK, JC.l PliOCHt bl , I PROG V t 2 7 » ,P LOT I D ,PT IT Lt 


CCDCCC 

CDJ25 

35* 


PEAL NVAR 



roLCSc 

f D126 

30* 


CCUIViLENCC MINT, INT J 



CGCoro 

1C 127 

37* 


D/TA JCLMAX/59/ ,N0NP/ 1 2UN0NC 



CPCCCC 

uCl 32 



DATA IPNMAX /£ /t ] pV KA> /2 7/ 



COGCGC 

OC132 

379 

c 


r: _rrr rc rrrr r 


C3L22C 

CO 135 

4C* 


D/TA 7C0MI / "OrriNC SIA ■t'DCrjNE RAT 

• ,*OCriNC PAR 

*9 

CPCiCD 

CC135 

4 1 • 


1 •Eirrii:r var mniti ai co * »*parapetcr 

* .’DIsPLiTl 


OCCECC 

0G135 

42 * 


2*niSPlAY2 »,*DTEPLAV3 •.•DIGPLAYI 

*, 'DISPLAYS 

•• 

EECCDC 

CCJ35 

43* 


3 ’ri SIM ATt • , ^Sc AMS * , “SCAN? 

• ,*xic-x 

m 

f 

tiCCCCC 

uOi 35 

44* 


4'XlC^yiCl M"X!C‘-X1C2 *T'i^JC-XlC3 

• P*XIC1-XIC 

« 

« 

cocccc 

CD136 

45* 


5'XJC2'/IC M'lflC3-yiC STATES 

* ,'NO SI ATES 

• 

LGCr-GC 

Cut 35 

4 C* 


b'TNT COr;TPO ’^'E^ROP CONT •SIMULATE 

* t’LJNrAB AH* 

ft 

1 

CGcncc 

bC135 

47* 


7T1CEN SENS *, 'STABILITY •^MRANSfER F 

“t‘=^TLAOY STA 

ft 

t 

cccctc 

CC13S 

45* 


6MJCCT IDCUS ’,'PUNrH X * t PARAMET 

• ,*PL0l 1 APLE 

ft 

f 

LCCfyLC 

GCIIS 

49 * 


9*PIMNT VARI *, "TITLE * , ' PL OT JD 

• ,*PL0 1 OK 

•t 

CGCQOC 

cri35 

50 * 


ATLOT Off *,*Sr4U2C •,*CAtCSMP 

• , *RL MANUAL 

•ft 

CCEjCC 

CC135 

5 1* 


p*i*L ALTO SC ",*si Manual *,*^1 auto sc 

• ,*ss manual 

« 

ft 

rccccc 

C0J35 

5?9 


C'SS AIMO SC •,’fp nA^'UAL '*Mr AJPfO SC 

• ,M-DDf 

ft 

t 

reerco 

CC135 

539 


ovdciKLi *,’i/vo!UST •.•rrnt.'ifR pl 

‘.•OCSTCN 0*C 

•ft 

Lctrcc 

-G3J5 

54* 


E*O.C. DtJA ‘.'Stvr O.t:. ’,M*irjT all t 

• ,‘TAL'LE 

•/ 

rocrco 

031 37 

559 


PAIA leiHK/lZH /,IC/1/HK 



c ccrcc 

CCl 3 7 

55* 

c 




ECCrCG 

00137 

579 

c 

PAT A ipPEicn / 'orpn* •,*jLTjrpi 

* ,’iKDrP2 

• ft 

CUuCCC 

0C137 

55* 

c 

1 *r jcf N papa • t • Tf INPUT * t • ir dutpu t 

• t’SS PARAPET 

ft 

ft 

E ' 0 U 0: 




I 


BCS 40180-3 


00137 

S9» 

C 

2 •PL PARArtCT •/ 



COOOOC 

pfiftfinn 

U U 1 

£0142 

OU V 

619 


DATA If»ftOCV/ •STAffll ‘.'STOPJ • «»STABT2 

•• 

COLCCO 

ID IM2 

62* 


l’PCtTA2 •,’CURVES2 ». ’PRINT CONT ’PRATE 

•t 

ooucao 

ZCIHZ 

63* 


2»0UTRaTT ’t’iNT koDE ’,’T1NC ’,’T«AX 

•f 

tOODOC 

3C142 

64^ 


3*FPfQ HAX •.•FRCQ f'lN •.•SS STPPT '.'SS 

STOP 


00:0000 

CQ1H2 

65* 


R’SS POItJiS ’.’SS ITERATI ’,’RL START ’ ,’RL 

STOP 


COCOOCI 

CO 142 

66* 


5’PL POniTS ’,’RfAL KIN ’.’REAL MAX ’,’IHAGMIN 


CDDCOO 

rGl42 

67* 


6 ’THAR MAX ’.’O.C. HODEL ’,’O.C. ORDER ’, ’INITIAL Tl 

V 

ECCuOL 

CC142 

64* 

c 

— - TrST FPft CPU SECriNn HEASURt 



Lcccoe 

0C1M4 

69* 


TF ICPUSCC.EO.C. ir>0 TO flC 



DGCOUO 

PGltit* 

70* 


CALL r PC T C I C PSC C , 1 0 . 1 C R , lUA n . I SUP ) 



ooonoi 

ncm? 

71* 


cpsrc:: icpsrc/soan. 



DDCDl 0 

roi5o 

12* 


crOTL-ePSCc-cpustr 



000015 

OCISI 

71* 


WPl 7E (0. n irPDCL 



COLOJ 7 

DGI54 

74* 

71 

rORHATlirx.r, 13.6, ’SECONDS WERE RCPUIRCO FOR THE 

PREVIOUS* 

* 

0CLL76 

0015<I 

75* 


1’ AHALTSIS’/l 



£00026 

0C1S5 

76* 

80 

N*rPRT=I NST 



GOGD26 

CC156 

77* 


IM00trPVALUCI9| 



000027 

r.D157 

Te* 

90 

INSTOrL 



C0CCJ37 

CD160 

79* 


ir 1 INDEX. CT>0. AND. IN0EX.LT*81 >G0 TO 120 



000037 

D016Q 

b:* 

Crrr: 




COLC37 

Cj£U2 

81* 

ino 

R r A D C IR C A n , 1 0 1 , C Npr S □ CO » 1 COM 



CCCD55 

01 ts 

82* 

in I 

TTPAlOl 



OOCC66 

GCl£b 

B5* 

111 

wonrtb.iosi icofi 



C0LQ66 

:om 

84* 

105 

FORKATI/ZCU COHHANO CARD >>SX*BA10> 



C£l"75 

aoiTi 

B5* 

C- — 

— >SET ChAf;ACTER SCAN INDEX 



CDC075 

i'*D l 72 

66* 


irorx=i 



C0E.07S 

GU172 

87* 

C 

— >Locau next Phrase 



COCC75 

00173 

88* 

120 

ci'LL irxtnn icoM.iNorx .iphpsi 



LODl*:C 

0C171 

89* 

c 

— >PLAO NE^T CARD IF BLANK PHRASE 



DOCIDO 

03174 

90* 

14 0 

IFI IPimS.'EO.IPLNKI GO TO 100 



LPDIOS 

GO 174 

91 * 

c 

-->SrARCH COMMAND LIST 



GDOIOS 

D0176 

92* 


GALL LGMHnnPHRS.TCOML.ICLMAX iI.INST) 



CDC107 

00176 

93* 

c 

-->cqpkand lorNTirifo 



ODCIDT 

00177 

94 • 


1 F c 1N5T -It . ’) DO TO 160 



£□0116 

00177 

9S* 

C"~ 

rr-rzr- Dti^^NCH TO NEW COMMAND rr.rz-rrxr 



CCLllO 

DC 201 

96* 


GO TO <2Ca.,?OG.230, 200.200, 200. 210, 220, 23D*232f 



:oci 2 i 

CC231 

97* 


1 2 34,236 ,500 . SOP ,240,250 ,260,270,780,290, 



ODOl ? l 

QD2CI 

9 e* 


2 3CC,310, 3 2 0, ?L0, 2 P 0.500, 5 00, 5 00,500,5 00, 



LOG 12 1 

or 201 

99* 


3 5 00, 50 C, 9 2 0, 3 30,200,3 60,550 , 560,570,5 tC, 



00C121 

0 0 201 

100* 


4 59a,6DO,610,X 2D, 6 30, 64 0,650,660,670,660, 



' rooi2i 

GC2G1 

10 1* 


5 6 4:0,700, 710,770,620,630,9:0.960,9801 


.INST 

roui2 ) 

DC 201 

102* 

C"- 




GC012 l 

002Q2 

103* 

160 CfrLL tCrtPH ( IPHRS »T Pncn»^ , 1 .INS T 1 



CDC222 

CC J02 

1C4* 

c — 

-->PHASr NOT program NAME 



iDcror 

GQ203 

105* 


IT < INST . L r . P » CO TO 1 7 n 



C0L23Q 

00203 

1C 6* 

c--- 

— >CET MEUT PHRASE 



COC23C 

C02DS 

10 7 • 


CALL NXTPIU ICOH,INOn( ,TPHRS> 



ro*-233 

D02G.S 

lot* 

c 

--HOAD PROGRAM NAME 



£00233 

C0206 

1C9 * 


PRONA^M N5T J- I PHRS 



CGC24G 

oo:o7 

ii:j* 


IF ( IN^ T.t.C ,74 ANO.TNST .NF- a 1 GO TO 165 



UCC24 4 

□ C2U 

111* 


XT t I pl‘fi S • E 0 . Nour T P RONAM «I N ST 1 rl DL NK 



C0C2GC 

DC?1 1 

112* 

c 

-“>rET NfX] PULASC 



Locroc 

D Q :■ 1 3 

Ui* 


CALL t’X rpn t irOK , INOEX , IPMRSA 



iru?Ti 

002 1 4 

114* 


X GlNO UNS 1 -6 »-3 



L0C276 

0 0215 

115* 


1F( IPMRS.NE-ICT GO TO 16B 



DCOiOD 


BCS 40180-3 


CO 215 

lit* 

C— >5ET INDlCATtR .CO. J 

C0030D 

00 217 

11 7* 

lCltlPHMST-b» = I 

C003C3 

CG220 

UP* 

165 IWSTOro 

rOG3Q6 

0G221 

31«?* 

60 TO 120 

C0C3C6 

00222 

12C« 

16B INSlOro 

G0G31 C 

0 0225 

121« 

GO TO 140 

CD031 G 

C022 3 

122* 

C = = =z = t::= S€t<P,CH PT>OGRA« VPLUE LIST rr====x=£ 

couuo 

CC22<4 

12 3# 

170 CALL lGm‘H<TPMR5,IP(J06W,iPVMAlf,l,I.NST> 

LD031 2 

CG224 

12^ ♦ 

C >rttr?A5C NOT PROGRAM VALUC 

CCC312 

DC225 

12 5 ♦ 

IF t INril .LE .G» GO TO 170 

000320 

G0J25 

126 ♦ 

c yrnT PFtRAsr 

000320 

G 0 22 7 

1?7< 

CALI I.-XTIMH TCOM.lwnCX.IPItRSI 

LOG 32 3 

00227 

12ti* 

c- >TCST 1ST CHAPA C TCP FOR NUKtPlC 

L0C323 

DCI2J0 

127* 

C f L L NUML RG f 1PM R S , 1 1 7 6 1 

CiCL33a 

00230 

1 3 G ♦ 

C >CGr:vrr?T a to g fopmat 

CGC33C: 

C023i 

1 2 1 * 

G ALL pen RT. L 4 PVAL UC It NS T J ,1 PHH S » 

LOC334 

0C2i2 

132 • 

GO TO !t5 

CDL.34 3 

GC233 

133* 

176 VPJir 16,1771 IPROGVIlNSTlplpMpS 

C0C34 5 

0G237 


177 rnRMA7<//lCX,15t1*** UARfMNG « * * . 3X, A 10 1 22HCA N*T 8C SET EQUAL TO 

COC357 

002J7 

155« 

1 A1C,23>I VA'LOC MUST F*E WUHERIG //I 

0CL3S7 

DC2*iO 

136« 

r »0 10 16 H 

000357 

ao2no 

137* 

C >CMrCK FOR OUTSTANDING COMhAND 

COC357 

oc:4i 

MB* 

176 irnNSTO.lC .□> GO TO leo 

L00361 

oc2n 

139# 


E0C361 

CD2M3 

1 «) 2 ♦ 

r>0 TO (MID, 420»91n, 94(1, 4 iS 0«A6U. 1(60, <180, 9BOt*<SOt 

LOUlbl 

022^3 

141* 

1 MHC,MeO,r.03,&00, 340,250. 760, ?70, 280,290, 

GOO *6 3 

002^3 

142 • 

2 3'JG, UD, 3 20,52 0,5 30,500.50 0, SQ.O:.5.0n,5UO* 

LCC36 3 

QC..<t3 

14 5 * 

3 5l: 0,5DG. 500, 540,940, 545. 550,560,500, sac, 

COC365 

UC2«3 

144* 

4 500, 500, 530 ,560 , 500 ,500,500,500,500,500, 

000363 

CC24 3 

145* 

5 5 00, 50n,5QD ,500, 50 0.63 0, BOD, 9 6 0,96 Cl ,INSTG 

000363 

CC2M^ 

141 • 

100 WRlTG Cb, l aj MPHRS 

C00464 

002^7 

147# 

lai F0PMAH//15X,34il**4 WARMING **• CAN4T INIEPPPCT ,A1C//1 

000471 

L0:5J 

14 P* 

fiO TO 12 C 

CO 04 7 1 

002b0 

14<I* 

C- — -->SCT TNSTC TO INDICATE A HtU OUTSTANdIUG TASK 

CCC4 7 1 

00251 

15 C# 

200 INS TO -INST 

00C473 

OC2S2 

151* 

H00C--1 

OOC474 

00263 

152* 

GO To 120 

00 04 7 6 

C02b*i 

1534 

210 inSPLY-1 

OOuSOO 

CG25S 

154 * 

215 NPLTSnDSPLTl=0 

fOO^ C2 

0C256 

155 4 

CC TO 200 

L1U5V.3 

OC25 7 

1564 

220 TrSPlY=2 

ODCiCS 

0C2t3 

157 4 

GO TO z:s 

CnG5lr6 

0 C 26 1 

ise4 

230 ins PL 7- 3 

DOCS 1C 

00262 


GO TO 21 5 

C0L5I 1 

0G263 

16 C4 

2 32 ins PLY - 4 

C0G51 3 

0G264 

lb 14 

GO TO 215 

C00S14 

0C26S 

162 4 

2T4 inSPLY = 5 

0CC516 

CG266 

16 3* 

GO To 2 is 

000617 

CC267 

164 4 

2J6 irSPLY - 6 

100<^21 

00270 

165 4 

GO TO 215 

COO*:?: 

G0:?3 

166 4 

C >IPAnSFER X TO XIC 

CDC522 

OG271 

16 74 

2 40 CALL XrRtX,XlC,NOXl 

000524 

00272 

u n 4 

LOKSI^^-ICKSS. 

CDD53C 

0 C 2 73 

I6f>4 

2 45 UTMI <6,26 311 < I , NAMt X < 1 1 , XIC< IJ , 1 ,NOX I 

00CF33 

00 313 

171* 

2630 rrPT'AHlMl.MOX.TH/^/^/^/.lX.-lNTnAL CGWDI T 1 0N5 /OPCR ATIN6 POINT*, 

OOG55 i 

OG 303 

1714 

1 3X . 7M/4/4/*/ ,//5 f 14, IM ,AB,3H = ,010.411 

00055 3 

0030^ 

1 72 • 

UR1T5(6,?47 1 

COC5 5 3 


ORIGINAL PAGE IS 
OF POOR QUALrrS 
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CLCtL2 

l57Jt 
^Ztf Z ? 
C^lfZ2 
czirc^ 
trLci z 
c-zz^^ i c 

LZZf.iZ 
ZZZ t L 
LCLC36 

CZZf^2^ 

€ZZl2t 

ctzzs? 

LZZf:.lii 
ZZZLlt 
CCCC^i? 
ZZtLUZ 
LZZi ^ 2 

iZZZHl 
LZZf.^^Z 
^ ZZ^ Z 1 

iZZrtf. 

LZZ^IL 

CCZZiLZ 

ZZZLUH 
irzhti 
CZZCJ^. 7 
:zz^.7i 
tZLl^C 
CZ17^:Z 
l:^7:z 
zzzn 1 
com 1 
zzzui 
ttZ72Z 
ZZZ722 
ZZL17H 
LCZllZ 
LZZ7IZ 
ZZC7Z5 

ZC L7 ^ H 
ZCZihl 
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D0i73 

230* 


GO TO 120 

C007SS 

□ G3T5 

23i^ 

c- 

- >01 SPLAY TASK 

C0Q75S 

0^374 

232f 

4'80 

CALL CUSPLA fl DSPLY ,IPHRS ,MOOE * ICOL » 

C3G757 

L0375 

r33* 


CO TO 120 

CG0T64 

GC275 

234 ♦ 

c- — : 

XJETURN TO MAIN PROGBAH UITH INST SCT TO INOICATCO TASK 

00 07 6 4 

LOiTb 

235 ♦ 

5G9 

IWS70-C 

GO 0 76 6 

2CS11 

236* 


IFtWA^PRT .DO.l IGO TO SODS 

000766 

CG431 

237^ 


GO TO bCCO 

C0DT7 1 

rCM31 

23ii* 

C 

->LCAD JNTFGPATOr? CONTROLS 

CCC7T1 

LCMC2 

239* 

5 2G 

Gf.lL VAiUrS tIPHRS,NAKCX,NOX,AlNT,lTNO,MODC» 

CCQ773 

:iC^C2 

24 C* 

C 

->CDf*vrRT RTAL TO INTLOCR 

CDD773 

0:^4D3 . 

24 1* 


xr iKonr •co*c) intiitno i-aiNTt itnoi 

roioo2 

rCJiCB 

242 * 


GO 70 120 

C01G16 

CC4C5 

24 1* 

c 

->LOaTi error CONTRO'LS 

00101b 

jC?Ma6 

24 4 * 

533 

C AL 1 VA L Ut S M PM'R S tTIAHC X *NOX ft RftOR » I TNO, MODE I 

P01U2 0 

00^07 

24 5* 


r» 0 T 0 1 ? c 

r01G2 7 

DO *10 7 

246* 

c 

-M.OAH STAinUITY HAf?CTN PARAMETCP N'A'ME 

CO 102 7 

ODMIO 

24 7* 

540 

CALL N-AMCS t 1PHRS,SMPAR»NUN1T» IG , I TWO »MOOE * 

GO 1031 

com I 

24 e* 

542 

1 1 M 0 = n 0 * 1 

COICRI 

uG4 12 

24 V* 


no TO 34C 

001043 

0CM12 

2 SC* 

C 

- LOAD PRINT VARIAiBCr NfAMES 

601043 

DC 41 3 

251* 

545 

G AL L MA t»r S < T PttP S > PRTN A H .tUINl T . I Q » I T NO ,MiOOf > 

CD1045 

CG413 

zs?* 

c 

*- DfirRMlNE 3*0. COOES FOR PRINT OUANTlTirS 

001C45 

CCM14 

2G3* 


iFTror.c*fir* noo to s4Z 

C01G54 

D04 1 £> 

2b4* 


CALI rOOOrMtPRTNAM (nNOXvOrLPRT flTNO) *15461 

coins 7 

0CM17 

2Sf* 


GO TO 542 

ED 1074 

C0423 

256* 

54 6 

URl Tt (6 ,54 7 > PRTN AM < TTNO) 

CG1076 

DC 4 2 3 

25 7* 

547 

•rORHAT(//2CV,3lH*** WARNING **♦ CAN"! lOENT IfY t3X*AI0 

C011C7 

C042 3 

25 8* 


U*AS A VALin PRINT. VARIABLEV/J 

LCI1Q7 

DQ424 

2S9* 


CO TC 542 

con 27 

Or424 

2 b/:* 

C 


G01107 

Gt 424 

261* 

e 

SFT PLOTTING OPTIONS 

CO n 0 7 

OC-424 

262* 

G 


GC M a 7 

004 2 4 

2b3* 

c === 

-==:=r = r- TITLE == = = = -r~= = *=rr 

001107 

-04 25 

264 * 

55 0 

GALL TI TLE II COM , T NOE X , PTI TL£ ,80 > 

::o nil 

C0426 

265* 


GO TO 562 

00 n 1 6 

C 0 4 2 6 

2tb* 

C r-= 

r= =»===- PLOT 10 =T=rr=rrz=r“rr 

ccnib 

C0427 

267* 

5 60 

CALL TITLE ME OH , I NOE X .PLOTID » ^ 8 T 

C0M2C 

DQ4I0 

26 fi* 

562 

1NOEX = 0 

C 0 n 2 6 

cD43l 

269* 


GOTO 90 

GDI 126 

OC4 31 

27S* 

C =r:: 

ZZ-Z--Z plot on z- = z = zzr — = 

GCl 12 6 

Or 4 32 

271 t 

5 70 

IMDP'LT = 1 

GGM30 

00432 

272 * 

C 

GALL ONSWm 

coma 

0:04 33 

273* 


GO TO 165 

CO mi 

00433 

274* 

c 

PLOT OPP =r_rrr_=r== 

CO mi 

DC434 

27 5* 

5fiO 

1NUPL1 - Q 

601133 

0Qr4 3 5 

2 76* 


GO TO 165 

CD 1133 

-UC435 

277* 

C 

zzrzrrz 5C402Q 

con 33 

C04 36 

27f:* 

5 90 

iaPH391 “ 0 

ooms 

OC437 

279* 


GO TO 165 

601135 

DQ437 

280* 

c === 

zr.z__r= GALCOHP =rrrr==z=r=== 

001135 

uC44J . 

28 1 * 

600 

IGrT<29l 1 

con 37 

CC441 

2E2* 


GCl To 165 

60114C 

DC 4 4 1 

28 3* 

C =::= 

— z=--r_ RL HAHUAL SCALES rzrzrrrz-- 

cc 1 1 4 a 

D 0 44 2 

29'4 * 

'610 

ironn 1 = i 

CO 114 2 

CC44 3 

2B5* 


G:P TO 165 

GDI 14 ! 

00 44 3 

?€-.6 * 

C rrr 

rrrrrr Rl AUTO SCALES ==z==z=- 

00114 3 


IMGINAC PAGE IE 
\f POOR QUAIOT 


BCS 40180-3 








QD 

287 ♦ 

630 

IPOPTUI = □ 


00114 S 

00«i<4S 

28 8 ♦ . 


GO TO 16S 


CO U 4 5 

0 0't<45 

re 9* 

c =“ 

:: = ===z = rr ST KANU8C SCALES ==crrr=rr==3 


0CU4 5 


2 90 ♦ 

6 3G 

TPCPT <2 1 r 1 


CO U47 

30 4*4 7 

291 * 


GO TO 165 


cDnso 

CD4M7 

29?* 

C =” 



CCl J5C 

L‘C4 53 

293 i 

6 40 

1ipori(2 1 = D 


cniiS2 

GE451 

294* 


GO TO 


001152 

C0451 

2?5» 

c ==" 

= r -r SS HANUA'L SCALES 


cons 2 

t:C452 

29b* 

6 50 

TrOPTI3) r 1 


C011S4 

cr403 

297* 


ro TO lt.5 


CO 1155 

CCqSJ 

29P ♦ 

C r== 

-zr-rz SS AUTO SCALES z^zzzrrzzr 


G3MSS 


29 9 * 

67-iC 

rPGPT(31 = 0 


CC1IS7 

cr.4b5 

Z7V* 


CvO 10 165 


001157 

liOlSS 

3G 1 * 

C 

zzzzrzz TP KANUAiL SCALES zrr=z==r= 


G011S7 

C04&6 

3J2* 

6 70 

IPQP 1 m 1 = 1 


701161 

03457 

3D3* 


GO TO 165 


C.011&2 

L04'5 7 

3b4* 

c 



£01162 

EG 4 63 

205* 

68 3 

IP0PTt4l - 0 


0C1I64 

0C461 

306* 


GO TO 165 


cons<i 

CCM61 

537* 

C 



C0M64 

CCM62 

3^e* 

6 9Q: 

IPOPTIS* = 1 


701166 

C 0 H 6 3 

509* 


GO TO 165 


onnsT 

CC463 

310* 

C rrr 

zr r: zz. NICHOLS rzrrrrzrrz 


OCllST 

0C4i64 

311* 

700 

IPOPI t6l z 1 


L0117I 

r.CMbS 

312* 


'GO TO 165 


C01I72 

C.Q4b5 

31 i* 

C r~ 

zzrzzz NYC UTS T rzrrrrrr 


CO 1172 

: C4fcb 

314* 

7IG 

iroPTivi z 1 


001 174 

00467 

315* 


GO TO 1 6 6 


001175 

00 467 

316* 

C === 

zzzzz “ PPINTER PLOTS =z=r=rzrrz 


20 11 7 S 

GC4T0 

317* 

720 

I OP 1 C 3C 1 z 1 


CDH77 

rG470 

31 P • 

C 

CALL 0NSWf2> 


con 77 

GG47J 

319 • 


jNDPlTzi 


CO 1200 

0C472 

32’ 1* 


CO TO 165 


cni202 

^0472 

321 * 

c 

--- nCAn O.C. OATA TASK 


701202 

C'0472 

322 ♦ 

C6G0 

CALL OCtjATA 


CCl 202 

3D4 7 3 

32 3* 

eoo 

COMINUE 


CO 1204 

00474 

32 4* 


GO TO 16S 


D01.‘»C4 

304 74 

325* 

C rzi 

==.::rr-:r= nCSICN 0 ,C . TASK srrsssrsrzzzss 

C01204 

C0474 

326* 

c 

irsr TlMT HOnCL IS dihcmsionco for 

fl.G* DESIGN 

C01204 

r0475 

32 7* 

62Q 

irt I0CAN.;E0.2rG0 TO 5CQ 


CG12D5 

1D47S 

32 P* 

C 

PiTlTf 16,8251 


CD12D5 

CC47S 

329* 

efi25 

rORPAT(7/l5X *15H*** WARNING ***,3)f# •WORK 

SPACE WAS NOT PROVIOCD IN 

CG12CS 

r047S 

312* 

w 

I f-GrCL rOR CPTIHAL. rONTROLtE? DCSI6N*// ! 


CD 1205 

3D 4 77 

331 • 


60 TO 16 5 


001207 

fC477 

3 32* 

c ==- 

-:_rrzr_r:r SAVt 0,C. TASK zrrzzczrrzrzr 


EGI207 

CD4T7 

333 * 

G9D0 

CALL OCSAVr 


OC1207 

mC5Q0 

334* 

900 

fONTINUC 


C0121 1 

to 531 

335* 


GO TO 16 5 


001211 

GD501 

3 3 <* 

c ==:: 


rzzz 

C0121 1 

CG5Q2 

337* 

920 

WRITC t5,921 1 


CC1212 

OGbO*! 

33P * 

92 1 

rORPAT I • initi al COiNniTIONS'l 


comb 

00 535 

33?* 


UIP I T r 1 3 , 9 2 2 1 1 N AKE X ( I > , X ( 1 1 .1= 1 , NO X ) 


C01216 

00 514 

34 Z* 

922 

rottPATIA « A7,*Z* .GlO.t 


CC1234 

0D515 

34 1* 


GO TO 165 


CC1234 

CC515 

342* 

C =rr 

zz.=_rr-.zz PLOT TAOLTS TASK _z-z-zzzz=: 

:r 

C01234 

tosis 

34 3* 

940 

c al L L C M P H ( I P HR S , T A PN A N , NO T AB , 1 , N T AiB t 


GO 17 56 
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-j 


CDS17 



ir<NTAP.LC.O)CO TO 950 

0C517 

34 5 * 

c 

CALL table plotting ROUTINE 

00S17 

346* 

C9 4 5 

call PLOTABCNTABI 

CDS21 

34 7* 

945 

GONTirur 

COi.21 

34 

c 

r.ALL ONSVtlJ 

CCb22 

349»* 


GO TO 120 

r052 3 

35 5 « 

950 

Wf?l TCf6f951 IIPHRS 

' 0£26 

351* 

951 

rCHPAT(//15X,l5H*** UARNINC • •• , SXf UlOt * IS NOT VALID TABIC NAME* 

CG126 

352* 


1//) 

CGD37 

3b 3 ♦ 


GO TO I2C 

D S2 7 
CCS30 

355 ♦ 

c - -- 
960 

N-TA P = -l 

cccji 

3bb^ 


GO TO 945 

OG-:32 

3bP ♦ 

9 8 0. 

co‘JTJ^:lJC 

GC£*33 

3 T«4 ♦ 


CALL TABIK< TA&LrS, TAflT/AH.HAXDIHtLOGl AR.NOTAB 1 

CCS34 

?.LZ* 


£ n T 0 1 11 

£0534 

361 ♦ 

C- 

‘>TNP or F.ILE E^fGOUNTCPCn 

ccr.3s 

36?* 

50CD 

IfST;-i 

GD£;36 

7tZ* 

5005 

ur I rr 16,51)10) (I,N'Ahe!ui ).i=i. Noxi 

i’OirMS 

364 ♦ 

50 IG 

f ORr A 1 1 //I HI , 5 uX , 1 1 US TA TE NAH.ES// I DM 9 , t X , A« II 

CC5 4i6 

3LT * 


W-riTf (6 » 5023 MI tNAKnx‘n ltiri,NOXI 

rcsss 

366 ♦ 

5023 

//rax, 1 OKRA ti NAfu:s//iQn4 , iXf as » i 

CPL56 

36 


vri Tr 16 ,5G3GM 1 vNAHt U n > tl=it MOVt 

;CL65 

36 B • 

5030 

ro6'HA7 </ /sax »]4K VARIABLE N A HE $ // 1 OCI 4 , 1 X r*8 » 1 

CDS66 

36*>* 


k'i?i 7r 16, sGsnn 1 ,NA»rp 1 1 1 rf'i 1 1 ,ir i *nopi 

C0576 

37C# 

5GSD 

rO«pAn//49X, •P ARAMT Tf R V A LDE S V / 5 1 1 4 1 1 Xf A 8 1 

C0S76 

37 !• 


12M“ .ril.51 1 

rC576 

3724 

C ==- 


•:D577 

373 * 


J “u 

ICLZ3 

37 4# 


OD Si CIO 1-1 »«0.P 

F.G603 

375* 


IMP m .NE N. 99999)60 10 5lDQ 

ODtiOS 

376 ♦ 


J = J« 1 

LCLG6 

3774 


WORK IJ-J-WAMEPllJ 

£0607 

37fi4 

SlOiO 

GOMIPJUE 

L G 1 

37'>4 


1 T IJ • n I . 0 ) W R 1 m (6,5101 M WO R K ( I ) , T r 1 , j > 

CCuZQ 

IP. 5 4 

5101 

FORMA T1/////ISX, 1511 44* WARNING 44 4, 15X, ITX At IZCD PARAKEfrRS* 

CC623 

26 1 4 


1 //I 0<3X , Ae ,2X) 1 

C3UZI 

3024 

6DG0 

COMl/'HE 

CQU22 

3ft34 


T THE =PtfALUC 127) 

DC62 3 

3844 


WPI tr f6t6C0 1 > 

CD.62S 

3B5 4 

6001 

FORMATI IKI I 

GOt25 

366 4 

C 

GET CURRENT CPU 7lHC 

£0626 

3674 


CALL rpCT <ICPSCC,TO,irR,IVAIT ,ISUB) 

GDC27 

3fir4 


CPU5FC- 1CPSEC/5JD0, 

G06J0 

3e*>,4 


RETURN 

COC3I 

39C4 




OOIZ^H 

tClZUH 

C0125G 

DC1250 

toirso 

CCIJSI 

C.Oii’St 

cai25b 

GOJ2Se* 

cni25t 

vcxzlc 

IZlZtl 
C'D J7«* 1 
COJ?6 3 
r:ii?<>3 
CC127 1 
GDi271 
G01Z73 
C0127S 
DO 132 3 

cm .^’3 

CC 131* j 
tni3*i I 
CO I 35 7 
ODM5 7 
C01576 
C01376 
cm 37 6 
031376 
CGmn3 
001*103 

comes 
001*1 11 
comi6 

001416 

oem 36 
GDI 4 36 
com 36 
001436 
001437 
001444 
GO 1444 
001444 
CD14S3 
C0146C 
C015G7 


D O 

m » 

t-TJ 53 

G 

E=^ 


Hc g?; 
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SUB|?0U7IH'E: LPRINT eWTRy POINT 0002SS 


5T0PA:G£ USfO GOPEdl CC0271; OATACO) 000113: BLANK COMMONC2) OQOQCO 
cchhqn plogks 


0003 

CNAKEX 

cnonos 


TN^HER 

C00032 

□ DOS 

TNAhC V 

□□coo? 

Q 0 D& 

CN AMtP 

LT0DC2 

0007 

cx 

C0QPD ! 

OtUD 

GXpOT 

COG 00 I 

OCll 

cv 

cocoa 1 

0012 

cr 

000001 

30 13 

ccnnE« 

coono3 

DC14 

CP VI NT 

000036 

□ 315 

CO 1 f 5 

cooro3 


EXTERNAL RErERENCES (BLOCK, NAtl£> 


0016 

VAROUT 

0017 

NWPLft 

0020 

NIOII 

0 021 

UJn2% 

□ 022 

rfERR31 


STORAGE AS5IGNHENT (BLOCK, TYPE, RELATIVE LOCATION, «A«El 


OOOG 


cuccm 

IIF 

CCOI 


DD002R 

117G 

OOOC 


000027 

i3r 

ODDI 


0000^3 

13QG 

OCOl 


COOD7 1 

1436 

0 3 00 


CLOC36 

ISF 

□ COl 


000137 

160G 

DCOO 


0000:4 6 

17 F 

□ COl 


000155 

172G 

cool 


CC0221 

?nc 

OOCl 


rCD22^ 

221G 

0001 


0G!?:52 

300L 

0 001 


000174 

31 CL 

0001 


000175 

3Z0L 

CCCD 


CCCC56 

34 3 r 

C 000 


Cu OC 6 3 

36 3 r 

OOGO 

I 

PCC012 

I 

□ ODQ 


000071 

I U JPS 

00 IS 


GDODGC 

JSTAPT 

0015 

I 

DCOCCl 

MNTT 

QCIR 

1 

C^t?C24 

LP R T 

ucoa 

I 

□ODdl 3 

N 

000b 

D 

PDOOOO 

N A HEP 

QCQ4 

0 

OOCOOO 

nahcr 

DEj5 

D 

COOOCO 

NAKCV 

0QC3 

0 

pooEoa 

namex 

GDI 3 

1 

OOGOD2 

NOP 

QD13 

I 

OOCQDl 

NO \ 

001 3 

1 

OOGOOD 

NOX 

CC50 

ft 

COOCQO 

OUTPUT 

DQ12 

R 

UCCDOO 

P 

Dom 

0 

ocoooo 

PR 7 NA M 

ooxs 


OOOD02 

TP 

ocn 

R 

oocaco 

V 

G0G7 

R 

CCOCOO 

X 


0010 R CCCCOC XnOT 


0 0100 

!♦ 

CLP 

>?IN'T 


C.OQCOD 

COlOl 



sue B OUT I HE 

LPBINTUPfllNT.TIHE I 

CDODOD 

COIGI 

3* 

C 

VERSION 3. 

REVISER HAV 5 1976 

ccooac 

00.101; 

4* 

C 

PURPOSE PROVIDE GENEPAl. LINCPfilNTER OUTPUTS. 

CCODCO 

oolor 

5.4 

c 

CALL SEQUENCE 

IPRINT - pniNT CONTROl VARIABLE. 

LOCOCC 

ZOlOl 

6* 

c 


TIKE - CURRENT TIKE. 

GOCCOQ 

OOIDI 

?♦ 

c 

IPRINT VALUE 

ouanttties printed 

CDUOO C 

tOlOl 


c 

C OR 1 

STATES, pates, AND TIME 

COCCOC 

COIDI 


G 

2 

STATES, BATES, VARIABLES, AND TIKE 

COGGOC 

CGIQI 

10* 

C 

3 

SlAIES, PATES, UARIARLES, IPARAMpTERS AT TIHE=0 ONLY 1 

CDCDuO 
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00101 

11* 

C 

4 57flTXS» RA7C5» VAnjABLFS, PA^ft«CTCR3t AMD 7 lf*Z 

cceooc 

toun 

12* 

c 

5 VARXAfiLCS' s^rciriro xu pfiu^h array 

C0CO3C 

CC133 

13* 


Ccyr>*0?//CMAHFX/7i/ ^!C/f 1 1 /CWAHE2/UA'1£R f 1 1 / CW A«T V//^ A t V « 1 > 

COOOOC 


IM 


CC7^HD*?/CVAHrP/l; AMfP f 11 

CCCCGO 

rcics 

IE* 


CeKt-OV/CX/X t 1 )/C«!*OT/*D07 ( i J/CV/V ( 1 I /CP/P t u 

cccooc 

CO lOb 

10* 


roH*-o>;/ccPDrp/i^cx .itov ^f;op 

cccooc 

criiJT 

i7* 


CCHPPi:/CPPX':T/Pr(T>;A*' n ?) ,!.PPT M 3 ) /Cfur 5 /JST I.PT,K TNIT ,1P 

COCOLC 

rciio 

ir* 


DrLTPLf PPrcIErD?/ ,NAPrP,NAPtVjNAHrP 

CCLOCD 

i cu t 

17* 


DIP£:)('’iJOfv 3»fPUT ( I 3 ) 

croruD 

czni 


c 

— 5 TTr.T rm ixiT tipxjo'f 

CECCGC 

ZCllZ 

2J * 


jr f Jpr>F>n J Of/ 10 700 


•:cn2 

27 • 

c 

-■ — > pro hi i\f tC5 

ZZLLZO 

QCllH 

23* 


ur t Tc If. , 11 1 TiPC , ( T ,»JAPr’/n J ,* « n , 1 = 1 .MO* » 

ZOLVtZ 

''OJ25 

24f 

11 

r oFrpA 1 ( / / 1 ry , * T Mir r - , no .4 , 3cxi, *s r atfs * /&< I4 1 ix tAB t2K- «oi i*sn 

IVLOll 

rci25 

^5 ♦ 

C 

> pnun pArt5* 

ZZLZZ3 

rDi?t 

20* 


tPT u f6 » J 3 1 n 4 n 1 ,xoo r n > , rr i ,f;oy i 

LOOCIZ 

CC J 16 

21* 

13 

FCRkA H /5 7X . *PA rt 5 */5 U4 , ] 7 »A £, 2 l(i: ,6 11.511 

zciri2 

COI 16 

2b * 

c 

> rm fvji vrrrJrM-fE 

LCCZ62 

cmi7 

2 \* 


ir i iPPi.s 1 . LT . n nr^N 


C C J i 7 

30* 

t — 

— 3 PPM, r vAPjAptrs. 

CCcrE 2 

ocim 

ll* 


URJIMC , 1 M n MlAfir vn 1 r n *1 ::j ,WOV 1 

LCCCC 1 

Pciii 

37* 

15 

FORMAT ( / 57X ,^VAfUA^jLi:5*/S(r4,J7,Afi,2H“ ,011*5)1 

ZCCILC 

CCILI 

33* 

C — - 

— rril 1 OP PAf.A»-£TLP PRl»il OPT 1 DUS 

OOC ICC 

C015? 

34 • 


IF IIP*^T S*T.ir,7JP5TU^U 

orci'ji: 

00154 

30* 


IF ( IP-T hi •LF . 3* A'fFt , Ti Pf •0T.3, JpnuRU 

CC01C7 

ZD166 

36* 


%ir/; JC ft , 1 7 M I .hAPFP U J ,PU 1 *I - J } 

OCG127 

tClti 

37* 

17 

rOPpATf/E7X , *P7>f AM£ TLP5V5 « I4 ,lXtA£,2H=: ,G11 •5)> 

znoiHt 

r0l67 

3B* 


PCHTP ^ 

CCGiHb 

LC1&7 

37* 

c 

5 5CAU COfiFS A*VD OFT CUPRCUT VaLUCS* 

CCC146 

.:gj70 

HZ* 

3<vQ 

U-0 

C7C152 

CCJ7I 

HI* 


no 320 1=1,10 

comss 

roj 71 

H2* 

C 

> TE’;! Fon LAST vARiAair 

: F L 1 5 5 

COJ /4 

H 3* 


If Uprr f T ) ,70 .-n frO TO 31? 

CFG 155 

CCJ76 

H u* 


CALL VARguT a^RTf I 1 .OUTPUT fill 

cccioo 

COl 77 

HT:* 


U=1 

roci 70 

□ 0203 

Mt* 


et> TO 320 

crai 72 

C0201 

HI* 

31D 

oinpon n=c. 

0CC174 

cg:c2 

Hb* 

320 

couTihur 

znc : 76 

GT232 

H^i * 

C 

> TcsT ron ffo list cuauiities iDcuririto 

oGCl 76 

00204 

SI* 


TF tr>. L7* 1 IRTTUSU 

OOC) 76 

GCI04 

Si* 

c 

> PATUT UrADIflO LIHOI XTMIT = 0* 

C.CC1 7 6 

00200 

B2 * 


IF C KlflM *T3 .dJyPlTc fOt 34 3 MPRTUAH (I ) ,J::l , Ul 

L2U7- 5 

L02J5 

53* 

343 

fPRHAT < / • TjMf • t 3X, 1? (3 t , A£ , ly J J 

C3L224 

CC21 5 

S4 ♦ 

C 

> PPTST LIST V/UJF5* 

CC2224 

C3216 

5S< 

360 

vM rr it’inKr , tom tut t j ),m ,fn 

C0L)7?4 

CC.2S 

50* 

363 

Ff f‘pA n i z ,0 10,4 , ir&j2 ) 

00C2 3 7 

□C226 

57* 


prruPV' 

CZZ237 

OvCZ7 

5«* 


£fD j LPPMIT *•**••****•**♦*♦*♦**•••*•♦* 

ZZC27Z 


ffc 
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StlRROUTlKC NAHFS ENTRY POINT 000106 


STORXCC liSrO COOtMl DD0133; OATAIO) 000034; OLANK C0NK0NI2I 000000 
FXTCRNAL RcrCRCNCCS (BiOCK* NAtICI 


D00 3 

NIJ^-fRC 

0CD4 

RCPrCL 

0005 

Niwntis 

::y&6 

N I 02 % 

00D7 

Nif7fT3 5 


STORAGE ASSIGNMENT (BLOCK* TYPE* RELATIVE LOCATION* NANC) 

OuCI ii:j0011 I?DL OOCl 000043 llQt 0001 000050 12GL 0000 000001 121f OCOl 00r0&2 20CL 

OuCQ P COOOOO FLNO ODOQ 000025 IKJPi 


oeioo 


CNA'MES 

C00003 

^0101 

?♦ 


S 119 ROUTI NE NANC S ( I PHR S , N ANE tNUN I T ,N0 , 1 TNO «N0 DE 1 

DQCCQ3 

CDlOl 

!♦ 

c 

PURPOSE LOADS ALPtlANIinERlC WANES OF OUANTITICS lOCNTIflCO BY 

C0UG03 

to 101 


c 

DEFINE STATCHCNT5. 

CDC003 

OClOl 


c 

CALL SEOOEHCE IPHRS = ARRAY CONTAINING NEXT PHRASE TO BE EXAHINEO* 

C0C003 

COIGI 

6 ♦ 

c 

wane : ARRAY TO flC LOADED WITH NAMES OF 

D0OC03 

CGJCl 

?♦ 

c 

DEFINED CUANTITIES. 

liD0:03 

OGIQI 

e# 

c 

NUNir = ARRAY, TO BE LOADED VI TH UNIT NAMES 

RDCD03 

fiClOl 


c 

OF OFriNEO CUANTITIES. 

r.0CCC3 

:C'iai 


c 

NO = NUHOLR OF DEFINFO QUANTITIES. 

CDDCD3 

COIOl 

n* 

c 

MNO = POSITION OF GIVEN OIIAMIIIY IN NAME ARRAY. 

DG(jIjD 3 

(IClul 


c 

MODE = NODE OF OPEPATION INDICATOR. 

LCIL003 

0C1G.1 

IT* 

c 

MOnC = 0 VtlEM UNO MAS BEEN LOADED* 

COODQ3 

ocun 


c 

KODE = 1 UUEN NAME HAS BEEN LOADED. 

r0DR03 

•CiClOJ 



DCOPLE PRECISION NAME (NOI ,IPHRS 

'•00CC3 

eraot* 

l^♦ 


REAL NUHiTINO) 

C0DCC3 

GOIO^ 

!?♦ 

c 

TEST FOR NOKERIC FIRST CHARACTER. 

DCDCC3 

.CIOS 

1B + 


Gall NUtlERCIlPHRS.SlDOl 

DCCC03 

OGIOG 

19t 


GO TO 2 Z 3 

G06G07 

CO 106 

2r.4 

c 

TEST Ill/T I TNO IS UITHIN ALLOUABLE RANGE. 

GCUC07 

GCIOT 

21* 

IDO 

IFClTNO.LT.I.OR.ITNO.r'T.NO} GO TO 120 

COOOl 1 

noiM 

22* 


IFtKODE .NE.CT GO TO no 

C0CC26 

CCUl 

23^ 

c 

LO A D M A HE 

CDDC26 

DD113 

2 


NAME «TTN0I = 1PHHS 

nOCE>53 

cell 4 

25* 


M:ctr = i: 

C0GC35 

CO 115 

26* 


return 

DOOC37 

:cu 5 

27# 

c 

LOAD UNITS NAME. FALL NAMES UILL BE PUT IN UOPO 1 FOR NOU.t 

COCD37 

nous 

26 r 

uc 

! HUWntl l-IPHRS 

Cnti7H3 

sou? 

29* 


PE TURN 

uCCC <<44 

C012G 

3C^ 

120 Upnr(6,1211 ITNOrlPHRS 

CiDOCSO 


ORIGINAL PAGE IS 
D£ POOR QUALITY 
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D012<< 

31# 

121 

ro«Hi»TU5X , 15H^** W ARNING ••• *T» 

•40H CXCCCDS 

1HC AtLOUABLC INOCX R 

C0QCjS6 

0C12*l 

32* 


Urvor roR ,AiD,34H THIS oirANint 

MILL NOT ec 

tJFFINCCi 

GC0056 

C012S 

33* 


RtTURN 



OOCD56 

CD 125 

3*< * 

C 

COKVtRT IPMRS TO I FORHAT. 



CD6D56 

0D126 

35# 

2C0 

caul FCORCHt LNO. IPMRSI 



on::L*62 

C0127 

36 ♦ 


nftOrFLNQ 



UCCC65 

cono 

37* 


HOD£=C 



CD CO 7 4* 

DC131 

3d* 


RC7 urtj 



CODD75 

DC132 

3*?* 





COol 32 


o S 

n3 Q 

5“? 


^ 1 --, '■* 

®?r 
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MATK P*70CR^>1 MOII5IM 

S70J7AGC Lsro COUETfn C00176; DATACCJ 000025; BLANK C0f^«0NC2l COOOQO 
CPH>*ON PLOCKS 


3303 

CCVRLY 

30C304 

00C4 

CPPOV. 

□00033 

COOS 

rrncti 

cr 0 02 3 

3 3C6 

GS^PAf? 

£'10026 

C*»3T 

rC'MjLN 

000003 

3010 

CVPf'KN 

00201 C 

0^11 

rs if^UL 

0^0222 

0C12 

CPI OTS 

CQ0067 


£)ttcokal fiorcpfwccs <nLoc«, namd 

3013 HAIATN 
‘3314 JlJlT 
3315 nnCRp 
0016 :i f’ TCH 

0317 /ns TP?. 

P023 

3021 

uC?2 Lwru^ 

3323 Nin?^ 


STOPflGC (BLOCK t 17PC» RCUTIVC LOCATIOM, NAHTI 


30D1 

:c''ciQ 

ICOL 

3^01 


000173 

1 3C OL 

0031 


0001 15 

20CL 

c:oi 

0L2J27 

310L 

3^01 


OCC 165 

4 03L 

3CD1 


030166 

4 2 CL 

0301 

GCnjTl 

T-^CL 

onci 


□001 72 

EG3L 

CCD4 


eocDio 

AM one 

D"C4 

ocrcGi 

OrL7A2 

DfOS 

D 

30CP20 

Of.P£N 

3305 

D 

CO'^OOS 

rs PAR 

0 Jr6 

*£0024 

jrpjo 

COl 1 

D 

a::ai2 

IfM MT 

3304 


rrojc?7 

I HKAX 

jrc? 

n 

INOrpi 

3f3C 

n 

002304 

It:UrP2 

3Ci 1 


aocoi 0 

1 NOE X 

00 3 2 

CO real 

IN DVR 

crc3 

2 

202000 

rvsT 

331 ? 


033CC2 

1 0 P T 

0312 

CCC065, 

JPOOT 

0"1 1 

T 

N023C1 

IPP ATE 

3C1 1 

1 

noocco 

TPRIN 

3013 

LC2CC1 

ri 

3'^C n 

D 

20C310 

NTNPUT 

0313 


200303 

NN 

03C.7 

CXOCOl 

t;o V 

3:c7 


G0CD23 

noK 

001 1 


032004 

NP THAX 

D0C4 

CCOC7.3 

or MOD 

DCC4 


CC03?I 

ocoro 

3(104 

R 

330307 

ou rr/AT 

00C4 

P D0rc25 

Pf^lST 

0T12 


300040 

P7I nr 

jC04 


0CCC25 

RL KAX 

0304 

CLG02Z 

PPOINT 

000 4 


002321 

fiSlART 

D2C4 


CUC022 

ns TOP 

uor.4 

OOOC2Q 

SSL TM 

aro4 

R 

0D031 1 

TTNC 

DOl ) 

R 

0DGOO6 

7Vm 

3004 

COOC32 

T7C00 

00C4 


□ DD3C.1 

XliAXl 

oaQ4 


nOOODO 

XMlNl 


0004 03C316 XSTOP 


OClOO 1* CNONSIM 

CCIOQ 24 C OVrRLAY t?/0/jSIh,QT0) 

CC130 3* C PnCGPAM WO NS I« ( I N PITT = 3 00 , OUT PUT ::200 ► T A PE 5 = 2 NPU T 


OCOl 


000116 

3001 

DCCO 


ccirooo 

3C1 r 

0001 


300167 

SODL 

□ 3C1 


C3C170 

632L 

GCD3 


oaooDj 

CPU5EC 

0334 


CCC304 

CUPVE 5 

CD04 


DODO 1 3 

FiiAV 

CLC4 


CCOCJ 4 


□ CC4 


COSUPO 

IMNT N 

CCL5 

n 

C3S31 4 

nr fp 

OGl 1 


0032CS 

I N* 0 H A )( 

3C12 


C-"3"3 

INf^PLT 

on 1 

I 

003032 

] OUT 

ecu 


cuncj 1 

1 PL nr 

0L23 

1 

CC3Cn2 

lOKS IM 

cc:-3 

1 

C3C30 1 

LPK 

C3C7 


O0CC02 

LOP 

0CC5 

n 

CL- 231 2 

NCIJT 

00 U 


300303 

LPT 5 

CCC7 


322303 

LSI M 

0C12 


000343 

PL 0 T I D 

CCC4 

p 

colors 

PRATE 

0CC4 


0GCC74 

HLM IN 

31C£ 

n 

CLC31 6 

FLPAR 

□ COO 

0 

3DCCH0 

SMPAft 

C 334 


C3CG17 

sr o INT 

D0C4 

ft 

006C12 

t«ax 

ecu 

R 

C3CC07 

I«A X2 

0 (jC 4 


000002 

XM I N 2 

0GC4 


CC0C15 

XSTARI 


TAPC6=0UTPUT 


coccoc 

CDOCCD 

COCCCO 


03 

O 

CO 


-c*. 

o 


G 3 


O 

I 

CO 




-OIGO 

4 * 

C 1 PUMCM=lDOt TAPE 3 =PUNCH. T APE 30 .TAPERS 1 

GOGDOO 

Ot IDO 

5 * 

C VERSION 3 * REVlStn APRIL 3 C 1976 

COGC 0 O 

tJClGQ 

6 * 

C PURPOSE HAiW PROCRAM FOR THt BATCH VERSION OF NONSIM* 

COGCOG 

00101 

7 * 

COM>^ON/CQVHLY/INST ttOK 5 S,LOKSlM*CPUSEC 

r.oooDO 

GG 133 

8 * 

rGMHON/crROV/yHlNl * 5 <M AXl »X h IN 2 .Ot LT A 2 , CUR VC S*PR IN T.P RATE , OOTR AT t 

CGCOOl 

0013 3 

9 # 

1 AHOnr,nNCtIMA< .FMAX rFHlN,XSlART*XST 0 P,sr 0 INI, 5 SLlM>RSTARTfRST 0 P» 

OOLCOl 

001 G 3 

IC* 

2 . RPOINI ,fiLMIN,RlM.AX vlMMlW,IMrtAX,OCriOOtOCOPD.,T 2 ERO 

CPGCDI 

DD 1 C 4 

ll* 

CPHFOM/GPRON/f)EPE:N,lCPCPUINDrP?f rSPAR,NlNPUT,NOUT,lNOEP,RLPAR 

:ccc 3 i 


12 * 

CGMMaW/CSMPAR/SMPARClO) /IGINDI?! 

roccoi 

3 D 13 & 

13 * 

C O M M 0 /r 0 R DE r? / N S I M , f J 0 V , r JO P / C J 0 R K N / W N 7 > 

COuQOl 

CG 137 

14 * 

C rMrOfl/rSIMUL/lPni NtI PRATC » 14 )UTpMPTS,NPTNAXv lt'DHAX»TiriC 2 «TM AX 2 f 

GOCCOl 

3 0137 

IS* 

1 lunrXviPLOTtrorKT cm 

CGOGO 1 

00 U Q 

1 L» 

ncilptr PRECISION lDrNT.SMPARiOEP£N,INDtPl*TNDrP 2 *ESPAR» 

DO GOO 1 

:qi IQ 

IT* 

i M NPUT ,NO li T , INOf P vRLP AR 

ccrcQi 

.0111 

1 e • 

Ct! CM VALENCE NOX J 

CDOtOl 

GiC 112 

19 ♦ 

cniMori /cPLnrs/ i ndpl t , iwrii^R* iopi i 3 qi tPLOTio I si ^PTiitEf eif 

DOCCD 1 

Lt 112 

21 ♦ 

* IP OPT MOI 

CCC 3 D 1 

or 1 1 2 

?!• 

C CALL USER FUFNTSItLO INPUT POUT INC. 

LDCCOl 

CC 113 

22 * 

CALL :nJ 5 TATN 

CC 30 G 1 

c 1 1 3 

23 * 

e CALL Ovr-RLAY(M'HlNIT,l,Q» 

Locroi 

CC 1 14 

24 * 

CALL INII: 

CeL 0 C 3 

3 QMS 

25 * 

INSTM 

OODO 05 

cons 

2 fi* 

C TNICRPRElAMON ROUTINE TO READ INSTRUCTIONS* 

0 GDCG 5 

reus 

2 7 * 

Cl GO CALL OV r RL AT 1 6 MI N lERP, ? , 0 * 6 H RECALL > 

ODOO 05 

f-OXlb 

26 * 

100 call liJirPP 

CDOOIC 

CClll 

29 * 

irtltlST-LE.n) STOP 

CGLCl 1 

3011 7 

30 * 

C PRANCH TO SPECIFIED ANALYSIS. 

COGOll 

C 0121 

31 * 

GO TO t luD, 100, 10 0 , IQO« 100 , laOflOQ* 100 » 100*1 OOf 

00301 6 

C 0121 

32 * 

1 1 DO , lEL 0 , 20 0 , 2 GO , 1 3.0 * 1 D 0 , 1 GQ * 100 , 100,1 00 * 

COGOl b 

Cul 2 l 

33 * 

2 K’O, ICO, 100 , IE 0 , 100 , 533 , 4 aQ, 430 ;pSOOr 6 CO* 

COOQ 16 

EG 12 1 

34 » 

3 7 0 c,eDG ,4 2 n,iuo,nDO,iGOtino,. iao*iO 0 -,icc* 

COCGI b 

0 C 121 

35 ♦ 

M 130 , 100 , 190 , ina, 100 . 10 . 0 , 100 * 100 . 100 , 100 , 

C 0 U 31 t 

rci 2 i 

3 fi* 

s 100 . iQo,iQO,ir;n,ioE!o»iGa, 1001 * ,ikst 

C;D 3 G l 6 

CC 121 

37 * 

C GENEPAL function Of ONE TNPEPENOENI V^PIABLE. 

CDCG 16 

10121 

3 K* 

C 20 C CALL OVE RL AV < 6 H 0 rBTCrii, 3 , 0 ) 

C 00016 

0 G 122 

jnt 

200 CONTINUE 

DD 3 US 

CC 12 3 

4 r ♦ 

r>c TO iC (0 

COQl 15 

Ou 1 24 

41 * 

3 00 IF iLOKSIrt . E O . M G O TO 310 

COL IT b 

r 0126 

42 * 

URJ 7 E ( 6*301 ) 

CCL 12 G 

DG 13 G 

M 3 * 

301 FnRMAT<// 15 X, 15 M*** WARNING ***, 5 X. •SIMULATION WILL NOT BE RUN DUE 

C 00125 

DO I 30 

M 4 ♦ 

1 TO FAiLtlRE to REA CH VALID ST EADY STATE •//» 

L 03125 

aci 3 i 

45 * 

GO TO IPG 

roc 125 

00132 

4 b* 

310 IPRIN-PRINT 

OOC 127 

□ 0133 

4 7 * 

I PR A If rPUATF 

L 00135 

GCU 4 

44 * 

iniJTrOUTRAT 

C 0 C 1 M 4 

CG 13 S 

M 9 * 

TlriC 2 -nNC 

caG ]53 

0 E 13 b 

s: t 

TMAXZ-TKAX 

CCC 155 

3 D 1 3 b 

51 * 

G CA L L 0 V:L RL A Y < 6 HS 1 B TCH , 4 , 0 1 

DGC 155 

CC 1 37 

52 * 

gall '^IFiTCH 

L 0 G 1 5 7 

CO 143 

53 * 

LOKSS-J 

C 00161 

OGisi 

54 * 

GO TO 133 

C 0 C 163 

00141 

55 * 

GMOn CALL QVCRLAy iSHL AB TCH, 5 , 0 > 

COC 163 

CO 14 2 

56 * 

400 CONTI ^'ur 

CGClbS 

30 14 3 

S 7 * 

ro TO ino 

GOClt 5 

30144 

58 * 

420 COMlNur 

E 30166 

0 C 14 S 

59 * 

GO TG 100 

LD 0166 

0 014 5 

6 G* 

C 5 D 0 CALL 0 VCRLAY( 6 H!SMBTCH,p; 6,01 

LDL 166 


s> 


fcg 


0=7 
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rGi«6 

61* 

500 

cotjtinue 



U00167 

QQI4 7 

62* 


GO TO iCO 



COG 16 7 

0Gl«*7 

63* 

C6Q0 

CALL OVCRLAtCfcHTrBTCH.7,01 



C001&7 

tiGisa 

<.4* 

600 

CCMIfJUE 



C0Q17C 

LClEil 

65* 


no TO 100 



U00I7G 

zciSi 

66* 

c7on 

CAIL 0VCr?LAYl6HSSBTCH,iaB,ni 



GDD17G 

IT0152 

67* 

700 

corn iriuL 



CQ0171 

QC155 

6R* 


GO TO ina 



CQL171 

OC 15 5 

69* 

C300 

e At L OVfRL Ay C6HRLBTCH, 1 lf> ,01 



CC0171 

CCIS^ 

7C* 

eoD 

ccrmrjuc 



OOUI72 

LClliS 

71* 


0:0 TO ICO 



GOOJ72 

0C1S5 

72 * 

C z-= 




CDG172 

LDISS 

73* 

c - — 


LIME Aft SYSTEM MODEL 

— PRDGftAH 0 

CPCI72 

3C15S 

74* 

CIO 00 

CALL OVCRLAY (6irfJ0rjSIHt 120*01 



C □ U 1 7 2 

U01S6 

75* 

IDQO 

CONTIMUC 



CGC173 

uGl!i6 

76* 

c 

: GCLtCR ATE 

OPTIMAL COfiTftOLLEft 

— PROGRAM OC 

C00173 

CC156 

77* 

e 

CALL OVCrLAY ( 6HH0NSU1, 133 t C» 



cool 71 

t/G157 

TP* 


GO TO ICG 



oaciTi 

OClbQ 

79* 





COD ITS 


o 

to 

A 

O 

I—* 

03 

^ SUBROUTIlfC PLTHIT POll/T O03QV 6 

04 

5T0FAC!: UiEO CODCfl) rGC052; D^TAfO) 03SO26; PLAHK C0««DWf2 1 DOOGCtS 

COK^OM tLr)C»5S 

0J5E3 Cf'LOTS CSC 10-4 

StZ^ CSCJllE CCOJtt 


CKTC<?liAt «rrCPrC«CCS celock, h>mc> 

0CC5 UP^M^ 

□ SC£» 


5TG«*CE ^iSJOKKCNT (BtOCK, TYPE, RCtATl VE LOC^ T 10 W, W^«E» 




ccsrc? 

U 7fy 

DSDl 


S00013 


00D3 

0OCO2C 

13 16 

QCOl 

OQDO?S 

1366 

QQOt 

COCOA! 


03SS 

C 

ctctiz 


07CS 

D 

CrC2S2 

IJFLTTO 

GCOO 

I DQSDl*( 

I 

0CC3 

1 OODOPO 

IHOPtT 

QCCI 

I CCSCQl 

INOwR 



OL^ZZZ 

l*rJP% 

CZZl 

1 

CCSCS2 

tQPT 

3G03 

T 0GCO72 

IP DPT 

OCS«J 

I ooostc 

6PLti 

UtZH 

0 C0C170 


PDCl 

D 

aLzzno 

PL OTIC 

C '"tl 

0 

S53C52 

PTULt 

CSOH 

OOCCCG 

SCI^LE 








LG ICC 

3* 

CP LIMIT 

OOGCDC 


LCICI 

2* 


SUSPOUTDfC PL1)417 

tccooo 


SCiCl 

Z* 

c 


CSGCCC 


3£iCl 

N* 

c 

JftJllKLlZt TOP PLOTTING 

tSOEOG 


PCjCi 

5* 

c 


rococo 


0CIS3 

fc • 


CCliPD^i /CPLOTS/ 1440PLT,TMOUP,1OPT«3D3,PLOTTO4 6>iPtmtl tl* 

COCEOC 


SC1S3 

7* 


* TPOPTdOl 

ctrccc 


eci,s/< 



CCKPG'f /CSCILC/ CC^LE 4S,*lt6l,WV^P<5,Z,fel,WPL TSItI 

cortoC 


c:j iS5 



PCiUPLE P^rvCCJSlOV PL0n&,PTTTLE*CrL7TO,VVAP,SLKK 

cotcer 


LGiCL 

1C* 


PinEJ*t:io*f cfLMatsj 

*-LCcac 

r::/ 

EC It 7 

3 I* 


EAT/ /12H 

SrCEOE 


cEin 

12* 


niifr trins /esk plots 

.rOiiCDG 

X 2i 

rcn 1 

13* 


-♦ ■ 

crcEoo 

^ 2: 

uom 

1^* 

c 


COtEGC 

i. 

/"• 

Dts 1 1 3 



PCVI^.D 26 

crrccc 


SEU^ 

1L« 


I.^:SPLT = 0 

errnoa 


tens 

37* 



crtcoi 

■< — > 

rzt\6 



OC It 1=1,30 

errre? 


«ri2x . 



10 lEPTCn r G 

CCLt'Zl 

K 5S 

eCJ23 

2L* 


oe J = l,£ 

iGcri.3 


EC12S, 

2X* 


20 PLOTJfi(T> = orLTIGlI) 

:ocm 


CC130 

2Z* 


pc 3E I = us 

CCLC2G 


CCU3 

Z3^ 


TO PUTUtI) r blun 

C0C02& 


SO! 35 

2*i* 


f ' ff S 1=3, 1 3 

crcs2s 


LClsij 

2C* 


<40 1P6P J tl 1 = ^ 

CEEC2S 



2t* 


IPtMfSl ' 1 

teerzG 
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oom3 

27* 

00 SD 1-1,6 

COOD33 


28 • 

50 NPLTSU > = 0 

00CO33 

:qisd 

29* 

oriuow 

DCCC3<4 

uOlSl 

3C* 


oooost 
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5UBROUTTHE SETIH tUinf POINT QCOl^H 

StDRUGE UlfD COOEflJ CSCITJ: DJtTAei5) C0(?C2CI; BLANK C0HH.0HC2) t? 00 CCD 


CON^OH P.LDCKi 


ri «*1 *T» 
- J*j ** 

cx 

c?ocoi 

D€‘Z,H 

CYDCT 

C2£::iu 

VZLt; 

(TV 



CP 



CATC 

CCOCIIl 

2Eia 

CT 

C3JO"l 


C*r£RNAL RfFERENCtS IBLOCK, WAKE* 


rJ3U 

r c>^o 

:xr7i2 

PCCT 

OCli 

pAirc T 

J014 

uin?z^ 



assign 

-ll/T 

lELOCK, TTPC, PCLATTVE 

LOCATION, >/A*5D 







ccrci^f 

ICL 

SCSI CS0C2-4 20L 

3C01 COCO 7 2 

30 L 

DODl DC0126 

f»CL 

acci 

COSZCt 5t 

JDCn 

ccrcji 


3^03 I C3CG3C J 

030& P COCSCO 

P 

OeiD P OOOODD 

T7KE 

0CL5 P 

CCOOOC V 

0303 P 

3CCC00 

X 

n CDGDBo raol 

0037. 30CCOO 

ZJC 







roicG 

1* 

CS 

ETTN 

sd cdgg 

LOlOt 

2* 


SI'BPOOTINE CETIIftT iVAPJ 

G3LGCC 

GCiCl 


c 

pusFocr rc the cuppfny vxujr or a state VAPiASLr.PAPAHtTEfi* 

CuCCSC 

3CiG.l 


c 

ETC. AND T0 C/fCUTE THE MODEL TO OBSERVE THE PESULTS OE 

EC CCOC 

vaai 

s* 

c 

the HCfjJ F ICATirMf . 

CGLSCC 

i.C13l 

c* 

c 

CALL SEOCIHCE 7 - iLTNITriCATTfiJi CODE* 

C 3 C T' C G 

OCICI 

7* 

c 

vAp = .Niv E 0 -EPIC VA^^LtJE ar QU*Kurr tdcntified by cod 

CC Lee C 

CC 1 J i 

c • 


CCf'i'Ofr/C f/'/t I \/t‘/Gtj \nGG7 \\\fzum\ \ ( 1 1 /CXI C/’/T C(I J 

S 2 C C C C 


Cl • 


c^^MPcvcn.-f/ri •'£ 

r C C C 2 C 

tiu 2CN 


c 

TEST TCP TTHt 

^^22^2 

FCltSi 

ri* 


“ inuNt.'j CD ro 10 

S2C2CC 

GC 1.07 

!?♦ 


TINT 

rr-..:Gi 

LEU0 

13* 

c 

CAU remote,, c.,oj 

ICCCG'f 

JCIU 

1 


Pf Uirf** 

'C — 1 2 

.cm 


r 

TEST rCT ClAirS 

2 : 221 c 

JCtlZ 

1^, • 

la 

1 r n .im -CP.T.CT, 1CDG3C31 CO TC 20 

: 22 : £ H 

r c 3 1 ^ 

17» 


/n ) 

22 2 : ii 

.0115 

1 J* 


0^ L 

2' 2' 

."rn5 

I<>4 

c 

TICT FCP -/-t'-lABlfS 

C 2 2 : 1 4 

-S116 

2C* 

20 

in J >ir . ^5cc:>2c .OP -I .GT .^oorioco) go to 3d 

2"2:3G 

001.20 

2M 



222223 





BCS 40180- 




M 


00121 

22# 


ViJ)-VAR 

GC122 

23^ 


call VA»SCTt0.«0.*«i) 

sc 12 3 

2^^ 


RtTWrN 

CG123 

25* 

C 

TEST FOR RATES 

u012h 

26 ♦ 

30 

IF II.IC* 1003000. OR. I.GT.ZOOOSiOOl 

00126^ 

27* 


j'l-icooGca 

D0127 

28* 


xnoT iJ» = y AR 

cono 

29* 


CALL rATSC7iO.,tJ.,J> 

CCUl 

3L* 


RC T URfi 

□ 0131 

31* 

C 

TEST FOR PARAMETERS 

□ □132 

32* 

<40 

I F U * t £ R << C D .^0 0 0 * OP • I . 6 T . S 00 DO 00 1 

OD13*4 

33* 


pn-HOOODQQ>-VAR 

00135 . 

39* 


f.P 10 5 

00136 

35* 




CO TO %Q 


f%C?URN 


00GCS1 
tCDGM 
nOQC66 
DO 006 6 
C0t212 
crp&ioT 
rooii3 
cocnt 

L0D1?2 

CC&122 

UQC126 

0D01<t6 

CCLtS2 

LQCIT2 


BCS 40180-3 



SU^iffOUTINE SHCLDf CtiTRY POlf^T ODDI 10 


STORAGE USrO COOEfl) 000122? DATA(O) DD0023; BLANK CO>!HON(ZJ OODOCO 


EXTERNAL RFrCRENCES C BLOCK, NAME > 
0003 NE^?R31 


STORAGE ASSlGNt-ENT IHLOCK, TYPE, RELATIVE LOCATION* NAME I 

G-301 ocrcil ITL OCDl D00C22 ID6G QDOl OODOS^* 1166 OOQl 0000A2 ROL 0001 COCDSl 5CL 

JOOI CGOCGl 6CL 090Q I OOCOCl I 0000 I DQCOOO ITIRST OODO T 000103 IK OCCO CC0005 INJPS 

□ CCD R ui^DC02 TEMP 


CGICO 

1* 

CSHCLtX 

roociG 

CQIDI 

2* 

• 


SUDROUT IME SHELLXf DARRAt.KCt, Nl 

COCCIO 

0C131 

3* 

c 

purpose REOROER elements of SINGLE DIMENSION ARRj^t 

COCCIG 

roiDi 

H* 

c 


SA5ED OH the lr.'0ex ARRAY KEY. 

CDCGIO 

^0 1 □ 1 

G« 

c 

CALL SEQUENCE OAPRAY - APflAY TO P.t RCOROEREO 

COGCID 

:cioi 

6 • 

c 


KEV - IMOfX ARRAY 

cnccic 

GGIDI 

T* 

c 


U “ NUHPER OF ELEMENTS IN ARRAY 

C C Li C 1 W 

0010 5 




niKENSlON DaPPAYM J tKEYH 1 

coco ID 

CCIOM 

99 



iriRSUl 

LOCOl C 

ccics 

1C* 


ID 

DO 20 iririRSTiN 

CCCUI 1 

c c 1 1 ;j 

11* 



IFtKCY* 1 » 

LOGG22 

DC i 1 3 

12* 


20 

CONTI»'Ur 


GCllS 

13* 



DO 30 r :l ,N 

CUCC34 

GG12D 

14* 


30 

KET n »r-KCY(I 1 

CQCGZU 

0C122 

lb* 



RCIUPN 

COLC.lt 

CD123 

15* 


40 

iriRSlrJ! 

CCDCM2 

CC124 

17* 



TENP^JJAPRAVtll 

COtiuM 3 

•"C125 

1 C* 



GC 10 bO 

coec47 

CO 12 6 

l^* 


SO 

fiAruPAY 1 1 )-DARPAVl IK 1 

tnccbi 

LC127 

20* 



I:IK 

cncc56 

□ C133 

21* 


60 

'iKrKl YM ) 

CGC061 

00131 

22* 



KfYf il““!K 

CDOObR 

0C132 

2^* 



ITHK-iriRSnSG, 70*50 

CDL065 

C.C135 

24* 


70 

nUrRAYtl l^TEMP 

CCL067 

00135 

2 b* 



GO TD 1C 

CCCC73 

lC137 

2 t* 




CCG121 




BCS 40180-3 


SOBROUnNE SIBTCH ENTRY POINT 000521 


storage used CODEin CCQ535; OATACQ) 0’3O3D0; PLANK COfIM'ONC?) CGOGOO 
G OHM ON PLDCK S 


anc‘3 

CO'?DFR 

00 300 3 

a DC 4 

GPROV 

Gro:-3D 

0^05 

f X 

cronoi 

3.0 06 

GxroT 

CO 000 T 

0PC7 

GINT 

LiQGOOl 

oniG' 

CXTC 

oocroi 

Gcni 

CNTKLS 

CPOOG^^ 

ani? 

CSIMIJL 

GCCG22 

0 313 

cpt: IMT 

con'OJ6 

GQ14 

GO ITS 

0030D3 

3'GJ=^ 

CTTME 

roc ^01 

0316 

T K^'t 5S 

CP3C3.2 

0017 

CWPliK 

cnopoi 

■QE2r 

CSCAlt 

COCf 366 

C021 

GPt OTS 

COOIO^ 


EXTEPML RCFEREkGES fB'LOCK, NAME I 


Qor? 

OTTIH 

0323 

C OORC N' 

ao:'^^ 

ICiMO 

Q325 

LPPINT 

G326. 

V AROUT 

0027 

SlTPl 

0Q30 

NkPlIS 

0 r 31 

KI0 31 

33 32 

N 1.0 21 

0333 

NW'^Lll 

C03H 

N KfUl 

on 35 


33 36 

Nf RP3V 


O O 

Mg 


S|: 

© 

P 


STOriAGE assignment (BLOCK, TYPE, RELATIVE LOCATION, NAHCI 


OQCl 


CG0T2J 

lOL 

0301 


□G0341 

105L 

QG31 


G0C014 

126G 

DO Oil 


D0'0 355 

13QL 

GCOl 


C0GD6S 

162G 

jOGI 


ci:r)M2 

171 n 

COOl 


no 01 37 

177 G 

DCOl 


aODl 33 

20 L 

□ DOT 


000500 

2GQL 

0CC1 


C00165 

2140 

□ OCl 


GC0221 

2 3 5G 

OQQl 


DCB252 

2540 

. OGGO 


GO 02 37 

27 CflF 

CCGl 


0OC321 

27 7 G 

coco 


000246 

294 IF 

0001 


CGCl^t'b 

3nt 

ore I 


Q004D4 

331G 

0001 


GQC4S4 

35 60 

□ COT 


000157 

4Gl 

ODCl 


CC0172 

5 PL 

3001 


GDrro5 

f.*7L 

GlOI 


030213^ 

65L 

3?0l 


G0D212 

6 7L 

0001 


000272 

7 7L 

OGGI 


CCC272 

£GL 

3 03tl 

R 

or'': 10 

AMOPC 

GQl I 


0DC3PG 

aniype 

3017 


DGCQnj 

05:pLY 

GCu4 


ooocco 

DUfI 1 

OCC.<i 


.:3Gij1 1 

0 UH 7 

GC 11 


GQC003 

ERROR 

0f:u3 

I 

O0G174 

1 

DCOD 

I 

G3C1'72 

lOLK 

3000 

I 

00 Cl 73 

I COU NT 

0G12 

0 

C03G12 

IPENT 

ac V6 

I 

CGCDi:! 

IfRR 

GDI 6 


0GO3C0 

ifataL 

OCOO 

1 

□002 G 3 

JMAX 

ODll 

T 

0QGCC2 

IHOPE 

0012 

I 

CCOOl 0 

INDEX 

0012 


cc'^nos 

IMpMAX 

G'jn 

I 

00 00 CO 

INOiPLT 

0C21 

I 

nacooi 

INOWR 

0000 


000256 

ItJJPl 

0 307 


OGO0OD 

INI 

0021 

I 

LCC032 

lOPT 

COl? 

1 

cocoa 2 

I OU T 

0012 

T 

EGGOI 1 

IPLOT 

0021 

I 

000072 

XPOPT 

0 COO 

1 

EQG-175 

1 PO UT 
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001? 1 Gocaa.i iprate 

GOOD 1 QCC030 IVAP 
001<*. 1 CCGGQO JSTftRT 
ODG.n I Z0C2m NHI SP 
Q312 nCCGC3 NPTS 

0 n21 E CCGCS2 ptitle 
CUik GEC£3i2 TP 


□COO 1 DD017S IPRCNT 
OCQO I GO GO 7 M IVRGOO 
COQO I GO.D206 K 
Q0D3 000002 KGP 
0003 T COOOOO NSIM 
0020 R OGDODO SCAie 
DGCD ;R DGC133 VRcOD 


0G12 I ODGQOO IPRIN 
3 000 X G0D2 0i< I VI 

I GOOQOl KINIT 
DC03 DOOOOi NOV 
0 02 0 [) 00 01 70 N'VAP 
0015 R 003G00 TIM£ 
0CD5 R COOOOO X 


OGll 000001 IPRINT 
0000 I 0GD2OS JV2 
0013 000024 LPRT 

D020 I QOD360 NPtTS 
0021 0 DG0040 PLOTID 
DG12 P OQOOC6 71NC 
GGQ6 R OOOODO XDOT 


OCGO I OCO'177 ISET 
OCOO I G00202 J 
00 op 1 CC020C NCOOES 
0012 000004 fJPTPAX 

CD13 0 ocoaoo PftTNAf* 
CDiz R conao? tpax 
OiClO R lCOGOO XIC 


or 100 

1 * 

CSIBTCM 

COOOOG 

C31O0 

24 

C 

OVERlAy tSIPTGHf 4 ,0 » 

COOCOD 

r)oizo 

3* 

C 

PPOGRAW SIBTCH 

CCDD06 

C0131 

4* 


SUCSRO0TTNE llOTCM 

COLiOOC 

GGlOl 

5* 

C 

vrpsrofj 3*1 REVISED OCT 7 1976 

CODOOO 

tC103 

b* 


COKMONyCOGGER/NSlH ,NOV,NOP 

CO OCGO 

001G4 

7* 


COMMOtJ/Cr r?G V/qOMI I B 1 , a mode , 0 U H 2 I 1 S 1 

CGCDCQ 

COIGS 



COM MON /CX/X U » /CXOGT/XDOTU ) /GJNT/INT C n /CXlC/XICtl 1 

CnDQQO 

roioh 

9* 


COMMON /CNTRLS/Arn Y^E MPRINT, »ERROR C 1 > 

CDDQOO 

CrO luT 

lO* 


COMMON /CSI^UL/IPRIN, I PP A T E ,1 OU T » NP T S ♦ N P TP A X ,1NDMAX*T1NC 9 THIX 

coaroD 

teior 

114 


1 »I Ni>rx MPLOT ,I nENM4 » 

cccooc 

:cii3 

12 * 


GrPMON/CPRl NT/PRI NA»* t 1 ^ Mlf'RT tic ) /C D 1 F 5 / JS T A RT ,1< IN IT * TP 

'JCGOOC 

COM 1 

13t 


tlOUPir Pr.rCTSlON rorNT.PTTTLE.PLOnDrPRTNAMrMVAR 

DO liOu C 

vCM 2 

14* 


C OM M Oi'/ C M M E / T I ME / Q RM T 5 5 TF AT AL , I ERP ' 

CCUOGO 

GGM3 

ir.» 


GOH*-ON /CUORK/ OSPLYdl 

CO on ED 

EDU4 

16* 


COMMON /CSOAtr/ SC Al C «5 *4 , 6 M NVAR 1 5 , 2 , 6 1 LT 6 f 6 1 

OOLODO 

C0115 

17* 


COMMON /CF>10!S/ 1 N OPL T , T NP« Rt I OP T t 3 0 1 .PLOT TD 1 SNPTXTLEC El, 

occcoc 

cons : 

Ifl* 


♦ IPQPT MCI 

cccr.co 

G 0 U 6 

1 


OIMCNSTON I VAR(5T2t6l iTVRCODt 3M 

LGCnCG 

0CU7 

2 L • 


oiM.rNSJON. vncoD t5l J 

OODGOO 

CO 123 

21 * 


PATA miK / 6 H 

CCODDC 

LC 122 

22 * 


iKOOr-AMOOC 

GOGDOG 

0012 3 

23* 


I PL 07-1 

G0D006 

Q012«l 

24* 


ICOUNT-C 

0G601 G 

C01Z5 

25^ 


Go 5 1=1,31 

G0UE14 

C u 1 3 0 

26* 


5 VRCOD Ml = 0*0 

OOCOl 4 

30132 

27* 


lerrrj!) = tplk 

DQCG15 

0 Q 1 3 3 

2 C* 


rOPT(4) r IHLK 

CO CO 17 

OQl 34 

29* 


GAIL GMIM noPTfSM 

CCD02D 

C.C13T> 

33* 


lOPTf?)-r OPT 121^1 

u0u02 3 

C C 1 3'6 

31 * 


UPI TC (6,27 0 a>lPRATE,IGUT,Itt 00 E,T 3 Ne,TMAX,PTI TLE . ( TOP T f 1 1 1 1=2 . 4 1 

GPDQ26 

L0I4 7 

32* 

27 

rS F0RMAT<45X,41H/*/ + /*/ SJHULATTQN analysis. /♦/*/♦/ //20X, 

GCCC46 

CO 14 7 

33* 


1 nilPPlNT RATE = ,I3,3X,13HD1SPLAY RATE=,X3,3Xt SHHCDCr, 

CDCD46 

rci47 

34* 


2 5MTINC=. 012. 5, 3X, SHTH^AXr, 0 1 2 . S //2 6 X , 6 A IC// 

00604 6 

CC14 7 

35* 


3 iLXr^CASr NO < I 27 X A 1 2/ ) 

C0G046 

lDISO 

36* 


I:poim~hhit*ippate 

GCUC46 

0C151 

3 7* 


TPRCNT^r 

G0G051 

0015? 

3fl* 


iMvrx=i 

CDGD52 

DO 153 

39* 


I SET = 5 

D0UG54 

CO 15^1 

4 C * 


ir ( INflipLT *iEQ* 0 ) 60 TO 67 

CG0C55 

l0154 

4 1 * 

C 


CljtjU5 5 

G0154 

4 2* 

C 

find cope numbers for this simulation* 

LCG055 

CC154 

43* 

C 


COGDSS 

CGI 54 

44 * 

C 

NVAR - parameter N.A'ME S FOR EACH PLOT 

CCGCbS 

GO 154 

45 * 

c 

I VAR - POINTERS INTO I VRCOD FOR EACH PARAMETER 

000055 

nni54 

4 C * 

c 

rvRron UNIQUE COOT Munrcas trsni in this simulation 

onanss 


*x* 

S I 

^ hH 
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00t5^ 


C 




CDUC5S 

2ZIS6 

HP* 



Nconcs = 1 


CD0C57 

CD1^7 

no* 



utncp - 0 


CG0G62 

tClbZ 

SC • 



ivr<cof>t u = 0 


EDUCCl 

ZClSi 

61> 



DC 65 J- 3 , 6 


C0U26S 

CD ibM 

52* 



IHAV : «PLTS(JI 


206275 

L 0165 

5 > 



If < I^:AX .ca* 0 1 60 TO 6S 


C00C77 

lC167 

5H * 



NOT S3' = J 


DOClfll 

? CHD 

55* 



EiO 60 J “1 tlMAX 


C0C123 

ecus 

5f. ♦ 



CALL ojvar 1 i , i , j> , o,i vi ,% lO) 


men 2 

CCl 7«J 

5 7« 


ID 

CALL C6 2^if M (i?V.AR t I , 2 , J 3 , □ »X V 2 , S 20 1 


CCC123 

'’CITS 

S&* 


2D 

c n* t TM^r 


C3CI33 

C Cl 10 

to* 



i*fi i-n ¥.zi .uconcs 


D0D13 3 

C D ^ ^ 1 

Oi) * 



If [ ivrcCDIKJ ,UC* JVI > GO 70 30 


G0G137 

cc;d3 

b 1 • 



I VACn, 1 ,J) = K 


G0G1M2 

OCZ'JH 

02 * 



0 6 10 


COUHR 

c r ^ J 5 

b 1* 


30 

Cfli.TJfiUr 


1 GP0m7 

D C J J 7 

on* 



fiCOPf^ z tiCODfS 4 1 


C02147 

CD2ia 

65^ 



1 vpcont f‘cnD5 5 > = ivi 


002152 

Dc^n 

66 • 



1 vr P f 1 , 1 , J> N CO PCS 

T. 

COG355 

02212 

6 74 


nc 

CCi^T l UUt 


CCCI57 

CC2J 3 

6h* 



DP s:* KZ 1 ,^?COOCS 


CCD157 

Or21 6 

to* 



JF t IVPCOOtKl .he:. IV2 > GO TO 50 


CiCOlC 3 

b0.:2ii 

7: 4 



IVf P: tl ,7,J) = K 


000166 

CC32t 

7U 



GO TO tQ 


COGITD 

CC-^22 

7?4 


so 

COM lUJC 


CCM7 3 

0C224 

734 



l-iCCULO r NCOr>CS 4- 1 


COCl 73 

Qr?2S 

In * 



I vf?c.orMNCcnrs J r iv? 


L0C177 

cm 0 

7=.* 



1 '/AP n , ? , J) - ?JCGDE5 


C D 2 n 3 

CC227 

76.4 


63 

C2U I IMif 


CDD21 2 

CO? 51 

774 


65 

CON 1 lMf{ 


CGC212 

DC? J3 

7»- 4 


67 

CONll^iLfC 


crc?i2 

PC233 

7T4 

C 




C.0C212 

D 2 : 3 3 

/»C4 

c 


jif]TTAU2C FOR SII^ULATIDM 


C2L21 2 

CCCiJ 

6 1 4 

c 




C3L21 2 

CC2JH 

624 



DO 7:J izl ,S’5IH 


CD2212 

nC23 7 

634 



X tl 3ZX1C ( I J 


JOC22 1 

GC2H0 

c tf * 


70 

XP07 nizc* 


0D2222 

Cr2'l2 

BS4 



JSTAPTzn 


C0022** 


B6 4 



KIM 112 


GCC225 

vcmz 

6 7 • 

c 


XURtf OH fRSOR HESSAOes IH fiOOEt 


2CC725 

CC2HH 

6*1 4 



IrRP=l 


Gi:C2?6 

0C2HS 

G74 



cat rCK<ttTTHE,TH*X,lSCT» 


LCC23C 

C02tf 6 

9 C 4 

c 

— 

TORH OFF ERROR HFSSA6ES TN MODEL 


COC230 

nC2^6 

914 



II f/r;rr 


CCD235 

GC2M7 

92* 



I niff- JH.DI .0)CALL LPRltlKIPSIH.TlMEI 


0DG236 

CC2^il 

'>3* 



IF ( IHDFLT .EO. 0 > CO TO 77 


:oc2q 5 

CC253 

9>[ 4 



DO VS Krj .tJCODES 


C00252 

CC2S6 

9‘J 4 



CALL VAPCUI (IVRCOD IK I.VaCODI K) » 


CCu252 

Dr?57 

*56 4 


75 

rot. I! MIL 


orc2t-2 

CDCbl 

9 7 4 



UflH E7SI VPCOO 


( Ci,?62 

0C2tM 

9G * 


77 

col.imiF 


f U0272 

2C26H 

99 4. 

c 




CDC272 

tJC26^^ 

ILC* 

c 


IticREPLfiT COUHTCBS AHO SAVE PARAMETER VALUES IF REQUIRED. 


COC272 

OC JbM 

!Gl 4 

c 




00C27Z 

Ou?t-S 

U2* 


RO 

CALL .Sir PI < TIKE . line) 


L.0C272 

2 2266 

3 J3* 



I rCUMriCOUtrl * 1 


G0C275 


03 

O 

to 


00 2&7 

liD4* 



irReNTrlPRCNT*! 


CQ030G 

GQ27Q 

165* 



IF( TCCUNT-LT.10UT1 60 TO 130 


CD 0 3D 3 

0^0 272 

106# 



IrOUNTrn 


00G3O6 

CC273 

1C 7* 



IF C INDPLT .EQ. G 1 GO TO 10 S 


C0C3O7 

:C275 

ro?* t 



INOLX-INDLX*! 


cnQJi 1 

DD2 76 

IQn* 



DO IJC K:j ,NCOOES 


C0C321 

DDiOl 

lie* 



CALL 'iff\Uain (iVRCOOfKI.VRCODiKIl 


rOC721 

Or3J2 

111* 


100 

corj TIMJC 


C0C331 


112* 



ylM ir (251 VRCOD 


C0C33 1 

3iia JC7 

113* 


i:^5 

CtlflT IfH.lE 


OCC34 1 

LCil3 

11 4* 



ir(lP9CNT.LT*lP0UT 1 60 TO 130 


600341 

ccsiz 

115* 



MMff NT-n 


DQC344 

OG J13 

1 1 6 * 



ir t UPRIN .CT. a 1 CALL LPRINT ilPRINiTlHCl 

CC0345 

CC313 

1 J 7 * 

C 


GO TO 130 


CCC345 

OG 313 

11.4* 

c 

no 

CON I IMLJC 


DOU345 

C C. i 1 3 

119* 

c 


vrMTX I6tl231 


G0034S 

GQ313 

121* 

c 

120 

rCRHAT (///IH »iatlH*rv7MWARNIN6« lQ(lH*l,fr6H THC NUneCR OF DATA f 

CP034 S 

^C313 

121* 

c 


*OJt;Ti tACCens AvAItABtC STORAGE TOR 

ONC RUK. ,2C(1H«I// 

0CU345 

f.C -13 

)?2* 

c 

♦ ?ft)(,4r?H tilG DMA TO THIS POINT WILL 

BC PLOT T CO. ///I 

D0634 5 

3031 3 

12 3* 

G 


ir.TJfX = iHDfX - 1 


000345 

00 313 

124* 

G 


GO JO FHJ 


COC 34 5 

‘.0 315 

12b* 


130- 

GCfH I'^jor 


C00355 

- 0 3 1 6 

126* 



irniME*i.T*THAx -*oneDH go lo eo 


G0G3SS 

00 32 3 

127* 


14Q 

crfjTiMur 


CD0361 

CO 321 

12ft* 



UP 1 TL*<6»2941 1 


CC0361 

00 32 3 

120* 

294 1 

r 0RJ1AM ///y /) 


Cl? 6 ^ ^ ^ 

CC323 

1 3 0 * 

C 




000366 

CC i2 3 

131* 

C 


WHITE PIOT DATA, 


0CC366 

CO 32 3 

132 * 

C 




000366 

CO 324 

133* 



IF \ IwnrLT *EQ* 0 1 60 TO 200 


00 0 3.66 

CC326 

1 34 ♦ 



TOP Till r 2 


00C374 

C D 32 7 

13b ♦ 



iHPiJbl = NOXSP 


0QG376 

CG33D 

tSf * 



no 15^ i = i ,tJOisp 


000404 

rG333 

13 7* 



lopTir^ij = rJPLTs«ii 


C004C4 

o r 3 34 

13 6*. 


ISq 

ccni iHu.t 


00C4C6 

00 336 

139* 



irruizi r TN-ncx 


G0C4C6 

00 33 7 

140* 



lOHTMIl = MG ODES 


COC410 

CC343 

14 ! • 



1 OF' HIM I r TPOPH?) 


GDT412 

0 0 341 

14 2* 



IGHT MSI ::: fl 


C0C414 

CC342 

14 3* 



WHITE (261 TOHT *PLOTlD,PTlTir 


G0C41S 

1*0 34 7 

14 4* 



uri IT (26) SCAL E ,M VAR ,I VAR 


D0C432 

re 35 4 . 

14 b • 



Rfwirjp 2 b 


00 04 4 7 

CC3f.5 

14 6*. 



OG 1ft J .I=1, IHPEX 


D0C454 

rr‘36u 

14 7* 



REAP (2 5) JRCOO 


0064 5 4 

00 36 3. 

14 e * 



UPllr L26) VRCOn 


000462 

Cu366 

149* 


IfiQ 

CGNJ HiUt 


CO 04 7 2 

rC37D 

* 15 C * 



Rfwirjl’ 25 


C.OC4 72 

OiC 371 

151 ♦ 



Jr.'DWR = 1 


C0C475 

QC 372 

152* 


2C0i 

GCr;TP!UE 


DCC534 

Ci'0 373 

15 3* 





000534 





eg 

5^ 


\j* 


BCS 4013Q-3 



subroutine: STEIPI entry point 0 G 3162 


STORAGE USED COOE fl 1 fD 02 C 6 ; DATAfOl OG 0035 ; BLANK COHRON f 2 I* 000 ODO 

COM*<ON blocks 

03C3 CCT^DCR G00n33 

aoDM c){ ono:^oi 

D?OS C)t nO'T coo GDI 

uOU 6 CKTKLS COOHO.^ 

aOG7 CU^^^K COGaOl 

UDI0 eWOI?K:N COCJOIQ 

□nil GtlMC CG0301 

□012 cSTMUL onccia 

0313 GCOOQl 

QQIH CD ITS 000003 


CXTERNAL RrrCRCKeES <BLOCK, NAHC I 

noi'5. fo*'o 

□ DV6 NCPR2% 

0017 ?,wnu^ 

□0 20 KjfMS 
□021 Nl02t 
0022 NERR3S 



STORAGE ASSICKHEMT 4BL0GK, TYPE, RELATIVE LOCATION* NAKEl 


0 DOT 

oorcm 

1 0 0 L 

or.GO 

G 003 02 

iDir 

0001 


COCO 36 

IITG 

QDGI 


OOOII6 

14 HG 

OCCl 


C0C143 

1S4G 

COST 

000070 

500L 

o:-Di 

000072 

5 3SL 

0001 


nocioo 

60 CL 

0007 

R 

DDOCOO 

A 

COED 

R 

COOCOl 

DT2 

GO 12 

Gonooc 

CUM 

0006 

0 GP 0 O 3 

error 

oono 

I 

DDCOOG 

1 

0000 


DDC024 

INJPS 

QGL6 


COGOOO 

INSTR 

3l 06 

OGOOjl 

IPR I NT 

0014 

OOODOQ 

USTART 

0014 

r 

□00001 

KINII 

C006 

1 

000C02 

MODE 

0003 


coocc? 

HOP 

0 GD 3 

ccrooi 

KOV 

0013 1 

000003 

NAHEX 

OQin 


000000 

NN 

0C03 

T 

OQCOCO 

NSIH 

OCIO 


C0C3D1 

NX 

00 IQ 

000002 

N? 

0010 

000003 

N 3 

on 1 0 


000004 

m 

OCIO 


0C0005 

N5 

uOlO 


C30006 

N 6 

QOIO 

1 lLCOCT 

N7 

0011 

000000 

TIM 

0 01 2 

R 

QG 0007 

THAX 

OQlk 

R 

000C02 

TP 

0034 

R 

CCiOGCQ 

X 


□ 0£5 R COOCQO K'OOT 


DOlOO 

!♦ 

3010 1 

?♦ 

CCiOl 

39 

30101 

4^ 

f 01:01 

f < • 

0 0131 


rcioi 

7* 

6010 3 

6* 

00104 

9 • 

CC13S . 

10 ♦ 


CSTEPl 

SUBROUT IWE STEpl I TIKE ,TINC> 

C VERSION H* REVISED SEPT 17 1976 

C PURf>OSE call INTEGRATTON SCHEME SELCCTEO RY HODE VAftXAeLC 

C CALL SECHIENCE TIME - CURRENT TIME 

C TING - TIME STEP TO BE TAKEN TO NEXT REPORT INTERVAL 

C OESICNTD BY J.O. RURROUCHS FEP 1974 

tOMMON/eoRnCR/NSl M^MCV, HOP/C X/X * 1 l/CXOOT/XO GTI 1 > 
GOMHON/GNTRlS/INSTR, I pPTNT*KCmr tCR90R ( 1 1 
rCMH 0 N/c« 0 RK/Al 1 l/CuORKN/NNfN I iM3iN 3 ,NS»Nb,N7 


aooDcc 

DO a DO Q 

coocac 

DDCOOG 

rococo 

nccccc 

roGCcc 

COGGOO 

GGCOOE 

CDOCQO 



BCS 40180-3 






GDICS 

im 

COKMON/CT1HE/T1K/CS1HUL/DUK( 7l«TMAX/CNAHCX/MnCXin 

GOCOOC 

C0107 

12* 

cor MOW/CO ITS/ JST ART, KIWI T, TP 

OOCCQO 

CC107 

13* 


Doonoc 

eol 10 

m* 

TP=7 irc *T1«C 

CDCCCC 

DO m 


^0 70 bOO 

CDC0C2 

"CIU 

LD112 

«OIAr.NflSTIC« COKTfiOL CAM NEVER REACH THE MEXf STATEMENT 
Ifc* 5 fiO TOCSSE.lCO.bCOl ,Mor>r 

00LPO3 
CD GOO * 

C 0112 
::cil2 

4 t » 

IB* 

C IPO CALL 0VERLAY(SHNRKVS,4,1,6HRCCALLI 

t0GG03 

DCU3 

19* 

100 CCJJ7 i‘jnf 

000014 

DC114 

2?m 

IP i T IHE.Gl .THAyi URnCtb^lDll M tNAHEX ID tA fK7*l-l 1 •iri^NSini 

ODCOl 4 

CQ125 

21 ♦ 

tOl roPMM «//4 7X 1 • lUICnRA TOR ST£P SIZE tlrtlTltJG COUNTS*/ 

GO J04 5 

D012S 

22* 

\ 5t I4,IX ,Afl,2H= ,nii*sn 

tOLiOM 5 

r.ci2b 

2 2* 

HiMn= 1 

L-00D45 

:J0127 

2^ • 

1 r < KOnL ,[-Q, K aNO. TIHE *LT .TP-. CDCOUGO TO 505 

OrDP47 

C0 131 

2f'* 

RETURN 

DOCObU 

00131 

2 b ♦ 

C START GEAR INTEGRATION WITH INITIAL CALL TO NRKWS 

L0Ci'b4 

00132 

2 7* 

SOO ir IKIMI I.CO.D) GO TO 100 

0DCD7C 

f r r 7 n 

0-D 132 
0C132 

2b • 
2V* 

CSD5 EALl GVCr?LAV<bMN0lJSTH,4,2,bMRC:CALtl 

^ V Lr L f O 

C0CC70 

C013M 

sz* 

505 com luuf 

Z2ZC12 

DD13S 

jm 

ir IKINI T.NE.Cl RETURN 

OCCD72 

:10137 

CC157 

L0l**3 

32* 

33* 

ZH* 

GO 10 ino 

LC0C7b 

ECC076 

COGIOO 

GDO 0T2rTTNC*.5 

com 

If 

Kiim = i 

C0C1C2 

OO.H2 

3b* 

CALL C0«0ITT>1C, TINC»OI 

DDL 1C4 

com 3 

3 7* 

00' 601 r=l ,NSIrt 

ODGl 1 1 

no mb 

3.H* 

A n mxn I *oi 2 *xdqt 1 1 1 

CCOI 1 b 

c*cm7 

3*>* 

boi X n > =Yu mi i«c*KDOT n 1 

LGC121 

O.D 1 5 1 

ui* 

Tirr.-llflCMINC 

00C126 

CD152 

M i* 

CALL rqwon iMCtTlNCfOl 

ODUl 3 1 

OD153 

42* 

00 to? T=1,NSI« 

Gcaiib 

noisb 

43* 

602 xn )=An }*OT2*XOOTI I 1 

000143 

jGlbO 

44* 

F? r 1 U H N 

LDcl4 7 

roibi 

45* 


GD3205 


Ul 


ORIGINAL PAGE IS 
OF POOR QUALITY 


BCS 401SO 



iUEROUTlMi: TABIM CKTPY POIMT 0D0fi64 


STOPAdC COTJEtn C0071C; D#TAf£M C002^!»; CO««ON<2» CQOCOO 

COWHOW PLO.CKS 

CIO onoo03 
CCf*HH 3CD023 


tXlLPN^L RrfCfifKCES tp.LOCKt fJAKr > 

ar/cs liz TPH 
i,U“L«c 
Bcr i;Ct 

:>::io iz**tn 
til] irKOV 

^0 12 KO'-!.rW 

mil 

omc 

fjOiT 

0^27 i, % 

0;:;21 


iTOP^Gt lElOCK, Type, PELATrYC LOetTIDN, NAhO 




r 00021 

iCL 

r^coi 


000072 

J 0OL 

0 001 


COCl 30 

lOOCL 

acoo 


OODQ?^ 

iGir 

OCOl 


ccri7i 

1 ICC-L 

lior::/ 


00 CO? 5 

iiQir 

OPGl 



1?0L 

OCQl 


C30000 

I2ZL 

DODl 


ODOC7S 

IJOL 

0001 


CDOJQS 

JhCL 

jrrsi 


coon 0 

K0L 

coco 


noni?z 

2CF 

DOOl 


r.0C2CD 

20CCL 

aViJi 


OOC*(2'i* 

2«i5r, 

QCLl 


cuo^cs 

3DDt; 

ace.! 


000 2? jl 

ir^ca 

or C 1 


^002^^7 

3€?^^L 

3001 


r.OC2 0 2 

33MCL 

30CD 


ODOC*tS 

zo^t 1 r 

CCCJ 


corxj 7 

3!7G 

c>:ci 


Ctrf -if. 

7wO 1 0 

orfa 


000700 

4^0 a 

0001 


CLirii 

'fOZOt 

CCOl 


000730 

U3<h ot 

CtCl 


CGC; J2 

0^'C oc 

3>CI 



tOOOl 

crit 


OOOHN 

O0K.L 

coco 


0001 10 

oizir 

COCO 


0001 1 1 

607ir 

ly-o 


CC012 J 

c''i< ir 



0 0 '■ ^1 '< 

01 OOl 

O'XO 


0001 yH 

0 1 c 1 r 

0 00'j 


0001 7% 

tj ar 

COOT 


COOOC7 

c 1 4 r t 

COCI 


Cyr070 

C2CCC 




0? j IF 

fXOI 


nooooc 

c i ,, r i 

0 :ioo 


0 JO 1 c 1 

cioir 

c.oci 


COCGCl 

c^i c:l 

CO 01 


00^177 

coca 



i o^o:.! 

CO? a 

0*<0' 


0^*0200 

c^iir 

Ooo 1 


rjjr-r.iiG 

CO'4 OL 

COCO 

D 

D0CC07 

!■ 1 U / 

t 00«< 

D 

ocrccc 

CA^C 


0 

cor ' c*i 

ni^PLC 


I 

Cor.j;'? 

J 

0 00^ 


oocon? 

If' J AC 

CLOM 

I 

cerr?? 

jjfor It 

CC.,Q 

I 

COCCI 2 

ICOf 

trti 


ryy??'j 


0 0 ^ 

J 

' Or a 0 

j Nf /rj 

cor^o 

I 

cor C2C 

J f At 

CODl 

r 

coi o:i 

1 w c I T r 

C.C12 

I 

roroc: 

r 0 S T R 

•yzi 

I 

CO" ,21 

1 JP 

0 .^A, 

7 

000 0-J 0 

L r 

o:o^ 

r 

^rj"OCrj 

PA A 

COCO 

i 

OCOCl 1 

pool' 

cooo 

I 

COr^Cl 

M A*- 


1 

::^oor 

if 

r/'co 

J 

0 

!< / K A '4 

0 000 

.1 

1000 J0 

C7 

otco 

i 

DaOQOI 7 

C/H-A/ 


0 

coro?o 

T'lfP S 

0 000 

D 

0 0 "’00 I 

f A fl */ 

0^ 00 

P 

OjOO J i 

VAi i;r 














’,U00 

1 * 

eVA 

*:7iJ 


.0001 c 

CCIOl 

2* 


fAja^UT ATI 

»7 A*^trAH,KA/OJ»ai Of TAE 1A&> 

C C 0 0 1 c 

ociai 

3* 

c 

VC f? Of 01^ ?.l 

PfVJO'^O JAH ? I77t 

*-00010 

' Cl 0 1 

U * 

c 

puftpcor >Povffa fpre 

nr ID PiKD ()t ^AMitArf data rtiP nnerw 

0" o: 1 c 

- 0 1 0 7 

4 

r 

*: I ».o ( f 

!f r a ^-1 r n ^ ' 

. * . * f 
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in 


□ 0101 

6* 

c 

PGlOl 

7* 

c 

.0101 

8* 

c 

-ClGl 

9* 

c 

COlOl 

la* 

c 

CCIDI 

!!♦ 

c 

30131 

12* 

c 

r.oiDi 

1 3 * 

c 

CC131 

14* 

c 

CPIDI 

15* 

c 

:oioi 

16* 

C 

3D1Q1 

1 u 

c 

r-oiai 

It* 

c 

*D101 

19* 

c 

rc 131 

20* 

c 

C0131 

21 * 

E 

COIDI 

22* 

c 

C0133 

23* 


DC134 

24 ♦ 


LG IDS 

2G* 


GO 106 

26* 


00137 

27* 


Com 

2F* 


cciu 

29* 


0013 4 

3:* 

10 

GCilS 

31* 


DC M G 

3?* 


3D 11 7 

33* 


CO 121 

34 ♦ 

20 

CG122 

3S* 


CQ122 

36* 

c * 

C012 3 

37* 

IDQ 

-D126 

3F* 

IGl 

DO 126 

39* 

C - 

CQ12 7 

4C* 


:7C127 

4 1 • 

c - 

□ DUG 

42* 

170 

DC 131 

4 3* 


00133 

44* 

c - 

CC132 

45* 


0C132 

46* 

G - 

CC134 

47* 


Oi0134 

4B* 

C = 

CC136 

49* 


03137 

5C* 


CO 140 

51* 

122 

0014 2 

52* 


DC 14 3 

53* 


GC 144 

54 ♦ 

130 

C0144 

55* 

C = 

00146 

56* 


ZC146 

57* 

C » 

DG147 

5£* 


LC147 

59* 

c - 

00147 

63* 

C r 

L‘C15 3 

6 1* 

140 

roiDi 

62* 



CALL SCOUCNCE TAB ARRAY lUTO WHICH DATA WILL OE tOADE0 

tABNAH ~ ARRAY OF ALLOWABLE TABLE NAMC& 

- ARRAY OF MAX. nlHENSIOMS FOR TABLES 
LOCTAB - ARRAY OF TARLC LOCATIONS IN ARRAY TAB 
NOT AD *- NO. or 1 ABIES IN MODEL 
METHOD TABLE OtSGRTPTlflN IS IN TMC FOLLOWING FORHAT 
CARD 1 TABLE XTABtf NAMf.A NX N2 
CARO 2* SFCOuPARY ir.'nEPrKOCNT VARIABLE* TABLE 
CAPO 5+ PRJ HAPy INDf PEMPENT VARiA*>Lr TAllC 
CARD R+ OrPENPERT VARIABLE TABLE 

^HSE AS MANY CAP3S AS DESIHED. HliST START TAIitE WITH 
A HEW CASTD* MUST GIVE N2»«X» AND NX#W7 POINTS RESPECTIVCLT 
IN EACH 7 aI LE . 

*,X “ NO. or POINTS IN ENitNARV rwn. VAR, TABLE 
N7 - NO. or POINTS IN EXGONdARY IND. VAN. T API E 
DATA !TErS ARE FREE riELD, ITEhS MUST OL SEpERATED BY EITHER 
2 OR MORE JMAMKS tGCMMA , EQUALS * OR LEFT OR RIGHT PARCWTHESIS 
COHMON/ClO/TREAOt Ii«RI TE t.TDl AG 
CONMOH/CCOMP/CARO f B I ,^Hf^S^I^JDrX 
DIMENSION TaBM 1 .TABNAKI 1 ) ,MA XD TH III ,L0C T AD ( II 
•n ou P L F P RE C 1 S 1 0 N P N A , C A RI> ► PMR S » T AB H 

OCUBir PRECISION RLNK/17H 
noUPLF PRCGTSIOH MTADt E/l?HTABLr 
TAF NrriLNK 
NX- C 
N? = 0 
MPOI=D 

WRITE HWRITE ,231 
rCpHATL////) 

GO TO 122 

— > READ DATA CARD 

READ* IRE AD , 1 Di , E ND ::65 20 ) C ARD 
FDRMAKOAICI 

— > SET CHARAeTER INDEX 

I NO E X r j 

— > LOCATE NEXT PHRASE 

iKDEXf: INDEX 

CALL H X T P M ( C A R 0 , T N D F X , P HR S 1 
— > . TEST FOR BLANK PHRASE 

IF(PHPS.CO,FLNKIGO TO ICC 

— > irST OPERATING MOPE. 

rrrMoPC.NE.pjco tg i3d 
rrrrr-“rrr = rrrrzrzr:;-zrz MODE = 0 " 

C;.?LL NUMERC (PURS, ^122 J 
no TO IPD 

IF« PHRS.NE^HTAOtEIGO TO 6530 
Mcnr-i 
GO TO 120 

in ^opL .GT, noo TO i*io 

"^rrzrrrrz-rrrzrzrrzrzz MODE*) 

CALL NUHrpc<PHRS>5l60) 

-- *> NUHERIC PURS 

GO 10 ti3«C 

— > CONVERT BCD TO REAL 

zrrrz-zrrzrzzr rrzzzrzr-rr MODE *&T. 1 

CALL r:UMEnctPMRS,T6?COI 
CAl I PCflLTl tVALUrTpHRf T 


CHECK FOR «T ABLER 


STORE TABLE NAME 


CDD016 

ODC016 

CC0D16 

CCLC16 

C33D16 

Do.:ni 6 
LODOl 6 
COCCI 6 
COCK 16 
LDCCl 6 
LQUCl 6 
DiiLCl 6 
GPDQl 6 
CODDl 6 
LUCGl 6 
COCPIG 
C0GC16 
CDDDl 6 
UCCOl 6 
COCOl 6 
COCOl (i 
CCD 016 
GDuCl6 
LD3Q16 
CDCC.2 1 

:ooc 2 i 

LODC22 
CTDD2 3 
CC0D3D 
CO DC 3 G 
uDCOiG 
rDuD32 
CDGCM? 
D0CCN2 
C0C342 
GDCD42 
0&JC45 
C0CC46 
LrcC46 
COG35 3 
LC jC 5 3 
CCCCBb 

:ncc 5 b 
crccNO 
LCC064 
C0L066 

oncoTC 

C0GC72 
LGCC74 
C0LC74 
000077 
CDL077 
LOCI 03 
CDC103 
DO L I 3 3 
OCOlUf. 
CP ;; 1 1 0 
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C0151 

.6 3* 

C 

> TO TASK TNPICATCn PY KOGC 


COOllO 

DC 15:2 

64* 

16 El 

CO 70tl0jc,230c,?.000,*ts00,5a00,6t'00 7 ,HOOE 


E0C115 

IC1S2 

65* 

C 



GD0U5 

DC 1 5 3 

66* 

1000 

CALL tCHFInrili>S ,TAPMA?',N07AP, I,W7A9* 


Qn313D 

00154 

67* 


ar<7;7AL.LC.?»CO TO 11 DC 


CC L. 1 3 6 

OC154 

6g* 

c 

> 6TAf?ni;G LOrATlO« roi? TABLE QATA 


CCOl J 6 

liD IS6 

6^* 


LTK^LOC TAB i A B ) 


C0014 1 

uDl56 

70* 

c 

> LAST V09D AnOBESS TOR TABLE DATA 


ECGIM 1 

:oiS7 

7 1* 


P6)t = HAxr>]H«NTALJ)*L0iK-l 


CL014 5 

CClt.3 

72* 


CALL SinMOVlPKliS,! ,6,TAniL0Kiiill 


C0US2 

CClol 

73* 




CCG16S 

rc i 62 

74* 


C C TO 1 2 n 


C0C167 

C C 1 6 1 

75 * 

1100 

WRI T[ nCRT TfrllOl IPMRS 


cnciTi 

ro 1 b{^ 

76<- 

1101 

rOWt*Ain7H *** WARNING tAlO* 


CDLl 76 

COl 

77* 


I'IS NOT A VALID TA13LC NAHE FDR THIS MODFL. DATA MILL BC 

IGNORED* 1 

CCG176 

•30167 

7P* 


r» 0 T 0 1 0 


OOCl7t 

C.C167 

7V* 

C r-= 

:: = -“z“r-rr-r-^r-r=r- = - f-ODE-2 == STORE NO, POINTS IN PRI* 

INO. tabl 

CQC176 

DC 173 

ec* 

200 0 

TAh CLCK* 1 jrVALOE 


cDD2C0 

CG171 

61* 


WyKAXtVALGE 


CDC2G 3 

nr 3 72 

€2 * 


HCDf = 5 


COG? 1 2 

QG 173 

B3* 


C ftLL NXTF HT CARD .index ,PHRS » 


CCC21 4 

C ^ 1 7 4 

p.4 * 


CO TO 14 j 


D0G22 1 

GO 174 

8S* 

c 

:r:T:3:T:r:=====r===== H00E=3 == STORE NO, POINTS TN SEC. : 

INO. TABLE 

C0C22 1 

C0175 

8 6 ♦ 

3000 

ICK^LOK ♦ 2 


C0C223 

GC17ft 

67* 


TAB tlOK ) = VALUE 


UOG225 

:ci77 

Oil* 


N2PA XrVALUC 


0CC231 

C-Dl 77 

89* 

G - — 

•> TCST IF THERE IS # SCGCtlOAY INDEPENDENT VAR. TABLE 


CCC231 

CO.OD 

9'** 


I rtN7PAX .LE p n GO TO 3020 


CDL24Q 

ClZ'dJ 

91* 


K.m3E-4 


CCC24 3 

0G203 

92* 


Go TO JO^O 


COC24S 

CC22M 

93* 

302 0 

Hri)f=s 


L0C247 

CCwVDS 

94* 


N7HAXrD 


CCC2SC 

.0^:2: 6 

95* 

3040 

lUnrLOK 


EnC252 

OC2n7 

96* 


If ( LOt<^ NKHAX*N7MAX*MX« AX*HAXG 1 1 ,N2HAX) .LE *H'AX)GO YO IDD 


CCC253 

nc.ii 

97* 


L TM.rMAXDlKtNTAB)“3 


CDC267 

CCZ12 

9n* 


WKIT E n WRIT E , 304 n NXH Ai( ,N2KAX ,L1M 


C^C274 

CC217 

99* 

3G4 1 

rORHATilTM *** WARMING »** ,14»- PRIHARY AND ♦.IHi 


DQ.:3G4 

:C217 

ICC* 


1* SLCrNDARY MJOEPENDENT VARIABLE POINTS EXCEEDS THE 


GCG304 

□ 0217 

lOJ • 


2.14,* U(rRD STORAGE LIMIT FOR THE*/21X, 


0003G4 

00217 

102* 


3*F0LLrwlNC TAOLEp SOME DATA WILL BE LOST**/) 


CCL3u4 

0 0220 

103* 


DO TO jca 


DCC3G4 

C0220 

106* 

C -~z 

: = = - MCOr-4 - SIDRE SFCONOARV IND* VAR* TABLE 

CCCi3C4 

0C221 

105* 

4000 

N7-N/M 


D0G3C6 

0C222 

lOf. * 


iriN7.GT .NZMAXIGO to 4040 


CD G 3 1 C 

GG22H 

107* 

4020 

1TAB = HA8M 


DDC3 ! 4 

CC22M 

ICR • 

G 

■> LIMIT DATA TO TAR ARRAY MAX. 


GOuIlH 

UC225 

109* 


imTAb.LE. HAX MAR M TAB IrVALUE 


CCD3t6 

□ 0227 

no* 


GO TO IZU 


C0C326 

OG230 

111* 

4 04 0 

Kroc=5 


CD033Q 

DG230 

112* 

G 



0C0J3D 

OC231 

113* 

5000 

MXrJ-;x ♦! 


DC L ? 3 2 

0C232 

114* 


IF t NX pLE .NXMAXIGO TO 4020 


OOC334 

C0234 

n? * 


p.r.nr:(i 


100337 

00235 

116* 


NXrC 


L0C34 I 

EC236 

117* 


N7 = C 


COC34 2 

00236 

116* 

c ==:' 



000342 

OD237 

I 19* 

6000. 

TTAP-TTAB*! 


CDC344 


r> 


o 

CO 

0 

1 

U 2 







SC2S40 

iZC^ 

If 

£C2V2 

12 1* 


SC2^43 

122* 

r^Lr. 

S'S2%5 

121* 

>j7rs 


:?^* 


SS2^t7 

i2S* 

IT it 7*1T . 

SC2k7 

}2l* 

c — > in 

Lsi-ei 

U'i* 

SS2C ;<r: ?' u/n 



SC2i 

sc 

12'>* 

C — > J'- 

irf ■ ^ i ^ ^ 

7 2C • 

If 

srss7 

lii • 

wr^iTi n^; 

SS2S7 

liC • 

SS31 

SC/£.2 

jrT» 

1 T;^srcc/ 

SCSi>7 

2 i * * 

vn ir n>- 

S'27L 

ns* 

£S*< 1 f =' ■ 1 

SS272 

nt* 

' sisa 

SC2 

3 7 7* 

SI SI 

CC27S 

n'-* 

jrn ns< 

SC27S 

n>* 

v'lnr:^ 

J J -rH 

js: * 



1 V 7 * 

K7 2 r, 

ss jrcs 

7 >2 • 


ccs:c 


£;121 rfS'^i-U/ 

CSiU 

iHU - 

-? ^7- 

rr J? 7 

3-C* 


-CS2S 

I * f * 

I riS/.C' 

rc;?2 

:^7* 

-H2 

1722S 

4*r? * 

CS Ts Cl 

■IS 


£2D7 CSS T n.'^r 

CCS2C 

ISC * 


:c 22 i. 

is»^ 

yr ill 

sssrs 

:c2* 

£7C:i f 

CS221 

S.s’> 

1/37/,%: 

S'i52 

JC*- * 

TS 

^ r r ^ r 

ISS* 

S2CC n.*;- 

:C22>, 

:t s* 

S3C! r C' 7^7 

CC2JS 

IS 7* 

3 S7 :S/3 7/ 




Cwi^4 2 


:'^> * 
jC. * 


^;T' . 




•*• »•* ^IHE OK THIS CA??0-*># 

3s;:c/3ix, **^]riL this ca^^gvi 

cr. :s jS' 

Z ir. II v: :tE ,2S1 


C 2^^ 

IC2* 


V S ' " C 

C 2 -- C 

I' J* 


v^-3 rr 

C U 1 

:s- • 


IS ;cc 

S 2S c 

3 CS * 

CSDS 

CS^.tlS 

C3SI 

1/ S* 


;^r3^^C 

S2CI 

*S7, 

S'': C- 

vSSz 

.:.s2'* 

SSZ3 

cs^> n 

' IS s 

:c--^* 


I't Zl r-< 

C 5SC 

n" • 


C-^ ij S *’’ *'■ s 

' Val 

I T : • 


If i / ’^•'^ST -- 1 

.S2M 

3 72* 


vr-ir^ 

.C 2S^ 

I 7 2* 

SC 1 1 

f n/ / J 

,C 2C i 

3 7-* 


1* ri' SSI 

C 2CS 

I7C * 

CC^S 

S'*^ T r 

C 2C V 

I '.^S * 


■t; r r • i ■ ^ ■ 

:S37C 

377* 


rsc i T7.S 


• *Jt 

■j'% r'4r-uT*/i 


Cin TI5rtE ,/l6i 


cca3%& 

SSSlSi 

CSC^&i 

CCCJtiS 

:.^CT7a 

7ZtZlZ 

CSCS.Q^ 

sss*^c % 

DSC^ 
rr.:^S7 
CSS'< 1 ^ 
H 

SSC.-T2S 

c 

s 


SSu‘^*' ^4 
' ^ ^ J 

SCLV7S 
SCS^ 7 % 
:ss«^7S 



'S' t ^ £ 

S' ' ' I s 
C S S S 3 E 


rcss^'E 

SSS€*< L 

css'.ec 

:ssss7 

S S 1 f. S 7 

CsU^. 7 
sssiti 
ssce*.s 
1 s cs s & 

sc SS S7 
lSSi7S 
SC*^f 7S 
lSCi77 
SSSC/7 
sr:.s?7 
CSSCSi 

sc 

S ' s ^ S 7 
c:sc.?2 

SSSEi7 

c-Tsss: 


SS^ESS 



SSS7S7 


v» ^ ^I ' .jitii C«f<i r »» >Wii?* 


SUEIROUTINE TITLE 


ENTRY POINT G001^«l 


OD 


storage used code Cl) 0C0164 DATAfO) 000036: BLANK C0NK0N(2) COO'OOO 


EXTERNAL REfERENCES (RlLOCK, NAME » 


QiFlOI EETT 
OOC^I POTT 
0CC5 NEPR3:I 


STORAGE assignment (BiLOCK* TYPE, RELATIVE LOCATION, NAME) 


OGOl 


QL0iL2t 

lOL 

0001 

00GQ05 

II2G 

D cm 


00 CO 3 7 

13 26 

OQQl 


000067 

145G 

OGCl 


00 G1 1 2 

157C 

00 m 


CCJ C03 3 

2D.L 

croi 

nOD3>S5 

^GL 

00 00 

D 

ooooco 

blnk 

0000 

0 

000006 

CHAR 

0000 

0 

DO 0032 

COMKA 

OOCO 

D 

CGDOO*< 

COUAL 

GOOD 

I OGDGIQ 

I 

0 000 


0G0022 

INJPS 

oeoo 

I 

OOOOIl 

11 

OiQDO 

1 

COC012 

I? 

DGDG 

I 

GCDOiliS 

J1 

GDQO 

I 000016 

J2 

0000 

I 

00.0017 

K 

0000 

I 

00001% 

NC 

0000 

I 

00001 3 

NU 



COIGO 

!♦ 

CTITLE 

CO COOS 


L e 101 

2* 



SUBROUTINE TlTfLE IGARO,lN,Tir L,NT 1 

CD COOS 


LCIOI 

3* 

C 

VERSION I. REVISED M*V 15 1975 

DOuCDS 


GO 101 

M* 

C 



DODOD'B 


00101 


c 


PURPOSE • TO LOCATE AND CENTER A TEXTUAL TITLE* 

COuECS 


COlOl 


c 



GOGCDS 


CCIDI 


c 


CAPO INPUT CARD TMAG.r 

OGCOGS 


[‘Cl Cl 

a* 

c 


TN “ CHAPAGTirR AT VMIOH TO START SEAROf 

000025 


CGlOl 


G 


TITL - RESULTING TITLE 

ODLOGS 


C.OIQI 


C 


NT - NUMBER OE CHARAGTERS IN TITLE FIELD 

CCCGO'5 


f;G}Cl 

n* 

c 



GOCGGS 


DC 10 3 

12* 



DOUHLf PREeiSloN C A RD 1 1 ) , 7 I TL ( 1 1, BLNK ,COMHA , EQUAL ,CHAR 

DCDOOS 


CG I DM 

13* 



DATA PINK /12U 

CCGCC5 


UC1C6 

I-M* 



DATA eOHHA /12H, COUAL /12H= 

C0GCQ.5 


roiD6 

ib* 

c 



CCCGOS 


rc:C6 

16 « 

c 


FIND FIRST MON^aLAiNK GHiARAcTER. 

CG0CC5 


:ciC6 

!?♦ 

c 



EOaCGS 


DO 111 

1 n » 



DO ID 1 = 1N-,6G: 

GOCQ05 

0 O 

CT/im 

IM* 



11 = 1 

GO0CO5 

O 

tn 

r 31 i 5 

2C» 



C AL L fit 7 T tCARD . l ,GH AR1 

U0OCO7 

rci 16 

21 ♦ 



ir ( CHAR •EO. COMMA 1 GO TO 10 

Gcaoi<< 

o 

CO 120 

22* 



If i CHAR .EQ. EQUAL ) GO TO ID 

E0CD17 


CO 12 2 

23* 



ir C CUA.R -NE, DINK ) GO TO 2 0 

CCQG22 

CO 

o 

X 

DQIZM 

?U* 


IQ 

continue 

GG0C27 

C 0 1 2 6 

Zb’* 



RETURN 

CDCC27 

u> 

P0127 

26* 


20 

CONTINUE 

COCr-33 


Cr012 7 

27* 

c 



OGGuI 3 


l.O 1 27 

2f* 

c 


FXNO LAST CHARCTER . 

000033 


L.0127 

29* 

G 



GD0033 


00130 

3C* 



12 = Rl 

C0CC33 


»2 




BCS 40180-3 


00 1 31 

3l* 



DO 30 T=IN,e0 

OOG037 

ocim 

32* 



12 r 12 - 1 

000037 

OG 13 5 

33* 



CALL GLTTCGAR0,12,GMARI 

C0CC42 

GO 136 

34 * 



ir i CHAR .NE. BLNK 1 60 TO 4D 

L0CQ47 

OCIMD 

35* 


30 

G GfJ T I MUE 

CQECSS 

n0lM2 

SL * 


40 

COtJTlNUE 

DO CHS 5 

UG1‘^2 

37* 

C 



GQcnss 

CjCIU? 

3fi* 

C 


HOVE TITLE Into TTTL ARRAy* 

000055 

:di^2 

I'?* 

G 



CO LOSS 

G C 1 ti 5 

‘ii:# 



U M z. fN7-n / 10 * 1 

CD 005 S 


41* 



5G l=l ,7J-W 

CGDC62 

CC1M7 

4?* 



TML 1 11 = DINK 

CDOOt.7 

PGlba 

43* 


50 

CO NT TNUC 

GOLCV 1 

CC1C2 

^ 4* 



NfC - T2 - 11 ♦ 1 

000071 

GC1G3 

45* 



Jl r lUl-Ncl / 2 ♦ X 

00:00 75 

0G15H 

4ifi* 



J? - Jl 4 NG - 1 

cnciDi 

:0 15S 

4 7* 



K - U 

D0G104 

^C15 6 

4B* 



no to J-J 1 .J 2 

000112 

:,Qi6i 

49* 



G AL L Til T T 1 C A R,D > K t G H A R ! 

00101X2 

10162 

SO* 



GAIL PUn Cim* I.CHAR) 

COGIX 7 

CQ163 

S 1* 



K - K ♦ 1 

0P0I24 

00164 

52* 


6D 

CONTI MUf 

cconx 

00166 

S3* 



RETURN 

000131 

CO 167 

5 4* 




C0U163 


ii 


KM 

O 
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SUBROUTINE VALUES ENTRY POINT 000077 

SrORACE USED COPEtll COOIPS; DAT A | Q ) 0D004 3 ; 8LANK COKHONdl OGOGOO 


external references (BLOCK t NAME I 


0003 

NU MERC 

GCO^ 

LCMPH 

0?GS 

PCHREL 

3rOS 

Nunus 

CC07 

NJO?S 

001.0 

NERR3L 


STORAGE ASSliGNMCHT (BLOCK, TYPEt RELATIVE LOCATION, NAMEl 


0001 

0L0027 root 

OCQ0 

000000 

IGIF 

0001 

0000<l2 20 OL 

OCOl 

000061 300L 

ocoo 

ocioois 30 ir 

00 61 

CDOCIO SOL 

□ COD 

000035 

INJPS 








rOlOO 

1* 

CVALUCS 



SaUCD2 

CGlOl 

2* 


SlJb R OttT I KE Vfl I.IJE S r I RHP S ,N fl HE , HO , V ALUE ,1 T N 0 ,H ODE 1 



CG0C02 

U {> i w 1 

3* 

C 

PURPOSE LOAOS NUHEPIC VALUES OF OUALiTlTIES IDENTIFIED 

BY 

DEFINE 

(■CUG02 

:cici 

k * 

C 

STATEMENTS. 



CCD032 


5* 

e 

CALL SEQUENCE IPIfRS = ARRAY CONTAJMINC NEXT PHRASE. TO 

BE 

EXAMINED 

00C002 

C0I31 

b* 

C 

NAME - ARRAY CONTAINING NAHTS OF OF FINED 

OUANTITItS. 

CDD002 

10.101 

*/♦ 

C 

NO = NUMnCR OF OETINED 0UANTITIE5. 



C0GCD2 

IDIGI 

8^ 

G 

VALUr = ARRAY INTO WHICH NUHFPIC VALUES 

ARE TO BE LOA 

0DDED2 

ceici 

9* 

C 

UNO = POSITION OF GIVEN OUANTTTV IN NAME 

ARRAY. 

00CG02 

rnioi 

1C 4 

C 

MODE - MODE OF OPERATION. 



00CCD2 

TRIGI 

IM 

G 

HOPE r Q A NAHE CArJ*T PE lOrNTIFlEO. 



GDCCD2 

:oioj 

12* 

C 

MODE - 2 NAME HAS BEEN IDtNUFlCO* 



C0CGC2 

CDlOi 

1 2* 


DIMENSION NAMEtNOT .VAliirtNO) 



C0L0l2 

OGIDH 

1 *1* 


DOURLE rRCCISION IPHRS>NAME 



CC00U2 

CD1.D4 

lb* 

C 

TEST FOR NUMERIC FIRST CHiRAcTER. 



C0DO02 

3Q105 

Ih* 


CALL NUMLRGT jrURS.SSOI 



000002 

rGlJ6 

17* 


GO TO 203 



cooncs 

: D1J6 

!fl* . 

C 

SEARCH NAMELIST FOR NAME CONTAINED IN IPHRS- 



CGOCOS 

f 0 107 

19» 

SO 

C / L L LC H'PH 1 1 PHR S ^ N A^E , NO ,J,I TNO 1 



tnoGic 

CO no 

20* 


IFTMNO.LE.nT GO TO mO 



coLCie 

L0113 

21* 

c 

NAME FOUND AT LOCATION I TWO. 



CCGQ16 

con 2 

22* 


Mcnr r? 



CCCG21 

0D113 

23* 


■RTT URN 



E0UC25 

0Q113 

?n* 

c 

NAMF NOT fOUND- 



C00G23 

CDllH 

2b* 

100 

1 WRITE 16 rial 1 IPMRS 



GDG027 

L0M7 

2t* 

101 

roWMATI ISlC, 33H**t WARNING ♦♦* CAN*T IDENTITY ,Aia« 



0CD03*l 

00 U 7 

21* 


1 2ili VALUE WILL BE IGNOREqI 



COC03R 

C0I20 

2P* 


KOOCr-1 



G0CG3H 

&G12I 

29* 


RETURN 



G0C036 
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CO 121 

3C* 

e TEST «ODC TO *SSU»E TH«T NAME MAS SEEN IDENTIFIED. 

000C36 

C0122 

31* 

ZOG TF (HODE.HE.?! GO TO IPO 

C.00C*I2 

GDI 22 

32* 

C CONVERT NUMERIC VALUE CONTAINED IW XPMR5 fROM A TO G FORMAT. 

CODON 2 

CE124* 

33* 

CALL "CDPCL (VALUE CITN0»,IPHRSJ 

DGDD^l') 

jOI2S 

3<»* 

f.mtzc 

GDGC5«1 

C-C126 

3f* 

RCTUfJr? 

cceoss 

rci27 

36* 

300 WPl Tf C:6»30I I IPHRS 

CbCC61 

GDI 32 

37* 

301 rri:.“ATt 16Xi71H+4* WAflWING A VAllD PARAHETER RAHE MUST PRCCCDt 

C0UCL6 

JG132 

3 6 * 

1 me «U.‘1CRiC VALUE ,A10> 

CObOfcb 

30123 

3^* 

BtTURN 

000C6 6 

o^cn^ 

UG* 


CGOUn 
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subroutine VARhon £NTRt POINT OOOIO'J 


STORAGE USED COPE (t ) D00I73; OATATQI 0Q00?0; BLANK COKHONtZ) OOOOOQ 


C?1MH=0N 

BLOCKS 


aOD3 

Qt 

OOODOl 


rXDOT 

CCC'CCI 

ono!i 

cv 

Gccroi 

JPD6 

CP 

0DC!?Q1 

DDD7 

cxic 

OCGODl 

DO ID 

CTIMC 

CDGCOl 


EXTERNAL RCrERfMCtS lOLOCK, WAKE > 
0011 NEPRJt 


STORAGE 

ASSIGNHCNT 

I BLOCK t type 

, RELATIVE 

LOCATION^ MAttEl 








0001 

-DC025 ICL 

OCOl 

O0QO52 2CL 

OCOl 000D77 

30L 

0001 

000123 

40L 

OCOl 

OOOISC 

SQL 

0000 

DCCCll IWJPS 

0006 P 

000000 P 

DCIQ R OOPOOD 

7IHE 

ooos 

R OQOOCO 

V 

0003 

R CCOOOO 

X 

Q0Q4 R 

DcruOQ xnoT 

0007 R 

GOOOOO XIC 










00100 

!♦ 

CV-APHOD 

COOCGG 

coiol 

7* 


SUB R OUT 1 V A RWOO 1 r * V AR 1 

COCCCO 

DQIOI 

3* 

c 

PURPOSE 70 HODirt TUE CURREMT VALUE OF A ST AT t tV AR TABLE , 

«OC0OC 

CulOl 


c 

Parameter, etc. given t»if integer identification code 

cccoco 

00101 

5* 

c 

For tiif ojantity* 

eOGQOO 

00101 

6* 

c 

CALL SratJENCE I = identification code. 

CCLCDO 

:ojoi 

7# 

c 

VAR * NEU NUMERIC VALUE BEING INPUT. 

GOtiCOC 

CG105 

e* 


CCMMON/CX/X t 1 l/CXO OT>XODT( D/CV/V (1 I/CP/PU 1 /CXIC/XICCI 1 

zoccoo 

OOlOM 



CCKMO‘VCIlMr/TlM£ 

CDLCC J 

OOIOH 

10 + 

c 

TEST FOR PArUHFTfR CODE 

LCUQCG 

ccias 

n* 


ir { 1 .IE ,^4CQP30G.OR.I.CT.5DOaOOO) GO TO 10 

GCCC0C 

LO107 

n* 


P n -MfOCOCO 1 =VAR 

CCDDi s 

CD I ID 

13A 


RETUP N 

C0CC21 

COliD 


c 

TEST FOR IG CORF 

COCO? I 

coni 

IS* 

10 

‘ If U .Lf - 2CO0DD3.OP.T.GT.3CCOOCO1 GO TO 20 

CCCD25 

r. G 1 1 3 

16* 


XIC C 1 -20JO0n0) = VAP 

CCCC42 

c G 1 m 

1 7^ 


RETUptl 


LGim 

IV* 

c 

TEM rOR VARIAPLE CODE 

C0CCM6 

cons 

in* 

20 

IFM .lE.30Cv10GO.OR.I.GT.<lOE)aOOOI GO TO 30 

000062 

bG117 

2t * 


vn -3CCDrD3 >“VAR 

cccoe* 7 

LOUD 

2i ♦ 


'RETURN 

COD073 

rono 

22^ 

c 

TEST roR STATC CODE 

C0J073 

C0121 

234 

30 

If ( J .LT.l.OP.I.GT.lOOOOOOT 60 TO ^D 

:OCC77 

CD123 

2*4* 


Xn irUAP 

CDCU‘4 


BCS 40180-3 


0D12<* 

25* 


R^7UR^y 

C012<l 

26* 

C 

TtST rCF? RATC CODC 

CD125 

27* 

<fO 

IF ( I *lt* J GOOOEO*OR.I* GT.20C00DGI 

CC127 

2 fl* 


XCOTtI~lOQOOO0J=VA« 

D0133 

294 


RriURJJ 

cra33 


c 

TEST-rOfi TIHr CODC 

VulZl 

31 * 

SG 

rrt I ♦ro^cj urcrvAf? 

CC1J3 

3?* 


pnuRH 

ocn<i 

33* 


Ct«D VAR^OD « 4 4 4 4# «4 4 ] 


CODl I 7 

coon 7 

LQ012Z 

coono 

CCG144 

zrci^iC 
CCC1{,3 
tool 72 


-r^ 

o< 
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> SUPROCmwC VAROUT ENTRY POINT 0D0171 


STORACr irSfD cope IJ ) Gaoact; OATACO) DQ002D.; plank cohmomc^j coogoo 
COHNON fitnCKS 


32C3 

rx 

ocorai 

00 0'< 

cxnoT 

OOCODl 

oaos 

cv 

DDOnOl 

0OG6 

CP 

cno?oi 

□ P07 

CXTC 

GOD301 

OCIO 

C7IHE 

cucoai 


CXTEPNAL firFERFNCLS (BLOCK* NAKEI 

oon NipRi* 


STORAGE ASSIGNMENT (BLOCK* TYPE, RELATIVE LOCATlONt NArtEI 


OOCl 

GCCC07 

lOL 

QCDl 

0C0Q33 

2 CL 

0001 

000060 

30L 

0001 

000105 

«iOL 

OCDl 

C00132 

5001 

□ OP 1 5 7 

6DL 

OOQO 

000012 

rnjP4 

OOOB R 

OQDOOO 

P 

0010 ft 

ooaooo 

TIME 

0005 

P GUPQOO 

0003 

R 3000GD 

X 

D0D4 

r? COCflOO 

xnoT 

0007 R 

OOOQOO 

XIC 







rciGo 

1* 

CVAROUT 

coooco 

GCICI 

2* 


SOBROtJT I Nt VAROUT ( I *VAR ) 

coccrc 

COICI 

3* 

C 

PURPOSE TO JifTRirvE THE KUHCRJC VALUES OF S T A TCS , V AR I ABLE 5 * 

CaCDQO 

CCICI 

q t 

C 

PARAMETEPStETC . GIVEN THE INTEGER IDE NTIFl CATI ON CODE 

CDCCCQ 

C'DiOl 

&♦ 

C 

FOR THE OUAMTITY OESlRm* 

COLDGC 

GClOi 

6# 

c 

CALL SrOUENCC T = ID ENT I F I CA T I ON CODE . 

0DCC3C 

izia\ 

1* 

c 

VAP r NU.^ERIC VALUE PETUPNED, 

LCC^DC 

CD103 

n# 


CTKPON/CX/X f \ )/CXnOT/ XOOT C n/CV/V ( 1 l/CP/P U I /CX2C/X1C( l» 

cDcrao 

doi:m 

9* 


COHMON/Cl IMT/T JKE 

CGCEDO 

COICM 

JC* 

c 

TEST rcR n^E root 

cocrcQ 

0CJ05 

n* 


IF( 1 .NE .C J GO TO 10 

COOCQO 

COIC? 

12* 


VARrTIME 

CDLOD J 

CCHD 

13* 


RTTUPN 

1ECCS.3 

t‘cn j 

n • 

e 

TEST rOR STATE COOG 

CCO/D3 

00111 

IS* 

10 

im.LTn.op.T.GTnnanooQ) co to 20 

CGCG37 

0011 i 

1 1* 


VAfirxn ) 

DCuD2q 

ODim 

!?♦ 


RLTUPN 

C0CC27 

CQH^ 

IB* 

e 

TEST FOR VARIAPLC CODE 

C0CG27 

cons 

19* 

20 

Tm.lL.Tc32aDD*OR*KGT*i|OOGaOOI 00 TO 30 

CC^C33 

com 

20* 


V/R=Vn-3CCD0Da> 

COGSbC 

CDS2C 

21* 


RETURN 

CCL354 

c(ii2n 

22 * 

c 

TEST TOP PATE CODE 

DDuDSH 

CQ121. 

23* 

3D 

Jf( I -U nGOOCCO.OR.I.GT*2000000> GO TO ^Q 

:i0D06C 

CC123 

2M * 


VAR-XPOTn-iaOQOODl 

CDDC7S 
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0Q12«I 

zst 


RCrURN 




00I2tf 

26* 

C 

TtST TOP P*R»firTER CODE 




C0125 

27* 

*40 

iru a£. *4 COGOOD* OR .l.CT. 5000300 

GO 

TO 

so 

CO 127 

2P* 


V AS rpi 1-40000001 




D0130 



Rfiurv 




CC130 

30* 

e 

TEST rc« ic conr 




CO 1.31 

21 • 

50 

if r I .LE .2D.0nQO0.0R,I.G7,3ODDGDD? 

GO 

TO 

GO 

CCli3 

32 ♦ 


V^R=XlG(J-2DQOaOO) 




0013*4 

3 3* 


RETURN 




0013*4 

3*4* 

c 

conr tiOT loEriTiFiED. srr to large 

NUnSER 

CC 1 35 

35* 

&0 

y^jj- j *f36 




CGl3fc 

36# 


RETURN 




aci J7 

37* 



» *• * 

* 



LOOlOl 
GO&lOl 
SDOIOS 
CDG1Z2 
Cr&126 
C0C126 
CGCl 22 
COi31^7 
COulSl 
CD0153 
CDCiJS .7 
:r.u 6 C 
CLtJ2DS 



BCS 4O1S0-3 


S; 


SUBROUTINE, XFR ENTRY POINT 000C2S 

STORAGE USFD COn£<l) DD0DS6; DATAtO) 000014; BLAHH COHMONI2T 000000 

EXTERNAL REFERENCES <BLOCH, NANE) 

30QT }\iPUZ\ 

STORAGE ASSIGNHENT tBLOCM* TYPE, RELATIVE LOCATION* NAHEt 

onoi OCGDIO iosr> CCOO I odqooo i oooo 000002 injpi 

00100 !• CXFP aotioic 

“CiDl 2* SUBROUTINE XrHIX,YftO COOOIC 

COlOi Z* DIHENSION X(tn*YfNl ClOOCl 

C0104 4* no idj j = i*n -oooi 

?C137 !• lOD YdJrXfU CCOOl 

joni i* RHUPN ECGOJ 

7* FND a XFR C0003 


O O C» 


BCS 40130-3 


5UOBOUTINC CUBIC tNTBV POINT 0D0173 


STORiGE USED CODCfll C00205; 0»T*(0I 000036; BLUHH COHHONtZI DOOOCO 


CmCRNAL BErCRCWCES IBlOCXi K*KE I 


0CO3 

CPPl 

□nc^i 

son 

oao^ 

^ cos 

aocb 

CCS 

oro7 

«LPfi34 


SIOHiGt AiSIGNMCWT (BLOCK. TVPE , HELKTIVE LOCKTTON. NKHEI 


OOCl 


c crcHO 

iDL 

oroi 

00007*1 

20L 

0000 

R 

ooooos 

J^A A 

OOQO 

p 

DOOOO? 

AR 

OCCO 

R 

00 0003 

iiOuO 

p 

ornoDO 

E5fi 

occa 

0DCD26 


0000 

R 

000007 

STCR 

OCOO 

R 

COCOON 

STCRR 

0000 

R 

COPOl 1 

aoco 

p 

OLrCOD 

TfR 

OCDO f? 

DOOOOl 

itnn 

DODO 

R 

OODOIO 

IHCTA 

nooo 

R 

000012 

THtTAS 

QCGO 

R 

C0C0I3 

oroa 

p 

OiCOi <4 

X2 

acCiO R 

DDC015 

X3 













TDIOQ 

1 * 

CUBIC 



CDCOCO 

LCIOI 

2* 


SUCiPOUflNt CtJHlClAA,BB,ARS> 


CDCOOD 

DC1D3 

3 # 


7CR“AA4*3/27. 

OOCOC800 

OOCiCOC 

□ G1 04 

M • 



COC00900 

OOODOH 

rcjcs 

b* 


rri^est tlrh),ot •pOooi rco 70 lo 

CCOOIDDO 

COCCI 1 

jci:s 

t • 

c 



rocoi i 

ecus 

7* 

c 

7»:nrc RCM ROOTS, TWO fOUAL 

GC00J20G 

cocoi 1 

ecus 

B ♦ 

c 



COLOl 1 

CCU7 



AR-2,*rr'^f If -PV/2* » 

crioomco 

LOCC 1 S 

rciu 

Id* 


Apr* - -4L' 

ccumSGo 

C2CZ2 S 

DC113 

1 1 • 

c 



CCUI2S 

:c 1 10 

12* 

c 

stirci PosinvE: root 

LODOJ 700 

Da0C25 

cono 

13* 

c 



Locers 

cciu 

14* 


f. 1 U FS 


CCZC-27 

JCM2 

lb* 


rniuf K 

L00C2C0D 

CCC034 

CCJM 

Ih* 

ID 

If ( HPK,L T.O, ICO TO 2 0 

CCC021CO 

COCCHC 

DC * i 3 

1.7 ♦ 

c 



C0CC4C 

JClli 

It* 

c 

on FfTAL ROOT, TWO CONJUGATE: lI^ACIffAKT ROOTS 

VQOC2100 

COCPHC 

GC113 

19« 

c 



CDG 040 

eC 1 1 5 



SIC l-K: LCin ( TCPK 1 

CC;)"125CD 

C0C34 4 

-01 1 fa 

21* 


AAA::C'^fM [-bU/2. ♦STEPrt > 

i‘ao7 2faao 

CGCC5 1 

CGU7 



tliZiPU n -I' 4/2, -ST CRH 1 

CCC3270P 

CCLCS7 

con? 

?l* 

c 



C0C057 

CCl i 7 

24# 

c 

surer r.LAi poor 

CCC^^'JCO 

roc::s 7 

:en 7 

25 ♦ 

c 



tzcos 7 

Z0]2u 

2L • 


A/.S - AAA 


C 3 Li fa 

2D\2l 

27* 


pnuRo 

COOO 32CO 

cnji?7o 

m0121 

2P* 

c 



flCCC7C 
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00121 

29* 

C 

THftft: RCAL, ItWtOUAt ROOTS 

00003*400 

00007D 

CO 121 


C 



O0CO7C 

to 122 

Zl* 


20 STLRrSORT l-TCRl 

D00C2t,00 

0QC074 

C0123 

3 2* 


TMCTA-frCOS«-eO/2,/STCRI 

00003700 

OQCIOI 

GO!?** 

33* 


TC‘?.*SQRTI -AA/3.I 

OC003ft0D 

CDUM 

CC125 

ZM* 


TIT 7A3-TMrTA/3* 

GOO? 5900 

0CL121 

00126 



Xl'TT*C0Sf THi TA31 


COC124 

CC127 

36* 


X?- ir •CO S ( T1I£T A3 «2. 0943 91 


C0C131 

CC130 

57* 


XJ^IF *C05.i TUFT A5*H .18879 1 


crci4 1 

D013D 

3B* 

c 



CDCJ4 1 

SC130 

3-^* 

c 

srcrci bi^ALLCSl ppsttivt root 

COC04400 

LGuim 

C0133 

**0* 

c 



CCtilM 1 

GDUl 



ANS = A*<AX 1 ( X 1 »X2 ,X3 ) 

OQC04600 

COCIS 1 

OOJ J2 

U2 0 


RElUflN 

CQOOSllDQ 

C00I63 

00133 

*i3* 


CKU 

C0Q0510G 

LQC2C4 



BCS 40180-3 


SUBROUTINE ItTPLIC ENTRY POINT 000245 


STORAGE USED CODC tl > 000254; DATAfOl 000042; BLANK C0NHDNC2) 000000 

coHHON Blocks 

DO.OJ CIPPL 000032 
0004 GOt^OrR O0OGO.2 
ones CtORK too Til 
OOC6 GV ODOnOl 

00 07 G N A He tf p □ 0 G 02 
DOIO CTIHE ODD 00 I 


EXTERNAL REFERFWCES CBLOCK, NAME I 

0011 Nwnus 
0D12 NI02S 
CO 13 NtRR3l 


STORACC ASSIGNHENT (BtOCK« TYPE • RELATIVE LOCATION* NANEI 

0001 GOOOSO IDL OCOO 3000DS lOOF 0001 000046 1216 

O'GDl 0CG134 2QL OGOO 000006 200r 0001 00012T 30L 

0005 CODOQQ A OCGO 1 CD.0003 I 00.00 1 GO0OO4 ICK 

3003 I OGCOGO. IHPL OOCO 0GDO3Q INJP* GOOO I GGC.000 ITERS 

0DC4 1 C-D0QGX NOV 0004 OQ0003 NOX OOlO R 000000 TIME 


OQIOO 


ClMPLIC 

DGlOl 

24 

subroutine lHPLlGfCYCLES*OLlMESI 

00133 

34 

GOHMON/CIMPL/IKPL, ICNT /COROCR/ NOXtNOV /CVORH/ 

00104 

44 

COHMGN /CV/ V /CNAHEV/ NAmEV /CTTME/ TIME 

CC105 

5* 

OlHfNSION Vni,VOLD«l> 

C0106 

6 4 

DOUBLE PREGTSTON NAME VI 11 

GO 107 

74 

IF(CYrLCS.Lr*0^> BO TO 40 

00111 

C4 

irt iHPL.riT.cino to lo 

coil 3 

9 4 

TTERS::CYCtES 

CCU4 

1C* 

!TERS= HAXCn*HINtHlTCR5,20>l 

fi E 1 1 5 

114 

ILl lliCS- APS (DUNES » 

30116 

124 

TTNO- G 

roii7 

134 

1 KPL - 1 

00 120 

14 • 

DO 5 1-1, NOV 

CC12 3 

15* 

5 VOID < n - 0*0 

0C125 

IX* 

IC irnHPL^CTUl BO TO 2 0 

CO 1 2 7 

17* 

IT MO- 1TI40*1 

0C130 

1 I* 

IF mNO^Cr- ITERS) IMPL-2 

DO 132 

19* 

1 r i 1 HPL . f Q . 2 ^ A N D * T C K T . G C • IL 1 WE S ) I HP L= 3 

GO 134 

2d* 

IFIlfir*L.MC.2J RETURN 




0001 000122 14 16 

□DQl 000231 40L 
0003 I 000001 IGNT 
OD0Q I DQCCD2 UNO 
QCU6 R OOOGGO V 


G0:0C02 

00:CD02 

A 1200 I .YOLO C00002 

D0C002. 
CDC002 
C0CGG2 
CDCCG2 
CDDC05 
GOLGI 0 
ODCQl? 
00CG30 
CD004C 
00004 1 
000046 
C0uG4 6 
0G0C5U 
COCOS 3 
COCOS 6 
L0Cn64 
CDC103 


OCCl GO 01 5 4 160G 
0001 000220 SOL 

OOCO 1 GOObDl TLlWES 
GCCT n 000000 fJAKEV 
U005 R G00310 VOLO 
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0G116 

21* 


IF I D L INC S . L T . 0 . I RE TORN 


pomo 

226 


DO 30 I‘1*N0V 


CQ IMS 

23* 


IFlVOLOrll .ro,0*1234S5» GO TO 30 


C'oms 

24 # 


VOLOfD- veil 


OGl*lb 

25* 

30 

CONTINUC 


OEIDO 

26* 


RETURN 


:cisi 

2 7* 

20 

ITNO-'i 


r.G152 

.20 ♦ 


iniMPL.6T.21 GO 70 4 0 


UCUM 

2 9* 


IF(nLl«IS.LT*0. 1 GO TO 40 


DC 156 

3.^* 


ICK-U 


UQ157 

3 1* 


DO 50 1 = 1, NOV 


*:C162 

32* 


in APS t Vf 1 1 1 .LT.I *CE -6) GO T O 5 0 


LXilbH 

33* 


in VOID t I 1 .ro. 0.1234 56 150 TO 50 


0=0166 

34* 


Iff AF5ivoiDiri“Vf n 1 .LT. 0. a5*APS(vtiii 

160 TO 50 

u:0J 7 0 

35* 


J F 1 1 CK . r c p 0 1 un ire « t , i do i 


001 7 J 

36* 

ITIO 

FORMA TiniD ) 


Q G i 74 

37* 


W R1 It I b • 2 00 1 NA PI V ( T 1 , VOLD 1 1 1 .V 1 1 > 


0G2DI 

3B* 

200 

FORMM I IH ,10X, A6,2aM NONCON 1/IRGINCE . OLD 

VALUED, FI 2. 3, 

0C2G1 

35* 


1 13K NEW VALUE = ,ri2*3l 


G32G2 

43* 


icr = i 


0 0 203 

41* 


rm THE .EQ. 0. IVOLO 1 11= D. 1234 56 


00225 

42* 

50 

CONT INUt 


00207 

4 3* 


I F ( I CK . I a . 11 I CNT =1 CNT * 1 


00211 

44 * 

4G 

lMPil=4 


CG212 

45* 


fllTiURN 


00213 

46* 


END 



coom 

CQ 012 ? 
0 CG 122 
3CQ12^ 
C 0013 C 
caul 30 
C;^G 13 M 
CGLMH 
CQGnE 
CGul ^ 6 
uDElSM 

LGU1S7 

D0CJ1&2 

000172 

:dc20 1 

DCL2DI 
LC02H 
G3tt?l 1 

:cc2ii 
0GU?1 3 
000222 
000222 
CCG231 
DDG2 32 
C0G253 



BCS 40180-3 




FUNCTION TRtUl CNTRY POINT 000311 


5T0R«&E OSFD COnCIU 000333; OATAIOI 00C03«l; BtUNK C0HN0NI2I COOiCOO 


EXTERNAL HEFERENCES CBLOCK, NA«E> 
0G03 KERR 31 


STORACIE ASfUDKNENT t BLOCK, TYPE, RELATIVE LOCATION* NAHEl 


30C1 


GCOObS lOL 

Qctai 

00313^ 

i3aL 

0001 

CQQ116 

20L 

OCOl 

000164 

30L 

DCGl 

G00222 

4Ct 

0-301 


CCPD22 5'L 

DCOl 

0GD226 

50L 

0001 

G002«I2 

60 1 

OGOl 

0002%>i 

70L 

COCO 

R CCOCOJ 

H 

0000 

1 

OCOOG5 I 

DrjQO 

I OOG306 

ice 

OiDD# I 

000007 

II 

OCOO 

000011 

INJRS 

ooeo 

1 CO.OOOl 

NA 

Q'OOO 

R 

00000:0 T'BLUl 

DOQD 

R OQGaO<i 

XI 

0000 R 

000002 

xo 








m 


eoloa 

!♦ 

CTBtUl 

CO0G07 

■CO lol 

2* 


FWNCTTON TBiLunXiXTrFTtNDXtNX 1 

GO 000 7 

CDlOl 

3* 

c 


CO CD 0 7 

roioi 

4 4 

c 

PURPOSE one OTHrWSlON LiNtAS iRTCRpOL Al 1 ON 

GGG007 

:.eiQi 

54 

c 


&C0007 

:oi*ai 

64 

c 

CAtL StOUtNGE 

CC0307 

CO 101 

7* 

G 


CCDQC7 

t-DlGl 

B4 

e 

X -- VALUr or 1WDEPENCE^’T VARIABLE 

a?orio^ 

00 131 

94 

c 

XT * ARRAY OF LENGTH AnSINXl CONTAINING X -VALUES 

CC0CD7 

roiGl 

10* 

c 

ft - ARRAY OF TABLC VALUES CORRESPONDING TO XT 

CO GO 07 

IQIOI 

11* 

c 

NOX- IHOlCATOft FOR STEP SPA'CH-‘G 

CDcr07 

LOIGI 

12* 

c 

IF NDX.FQ.D THEN XT CONTAINS EQUAL SPACED DATA 

C00007 

r 0 1,0 1 

13* 

c 

ir KOXpNE.O then xi contains uneoual spaced data 

Lfi-COT 

1.0101 

m* 

c 

NX - is the ARRAY LENGTH 

i!0Ca07 

roioi 

10* 

G 

IF NX.LT*3 THEN TRlJiNGATE OUTSIDE TABLE RANGE 

Cr-GDC7 

CO 101 

1C* 

C 

ir NX.cr.n then extrapolate OUTSIOL IAOLE RAiNCt 

LGGCQ7 

i c 10 1 

17* 

G 


GOG DO 7 

tiC131 

IH* 

C 

VPITTEN BY A*W-UARiREN VERSION 1* APRIL 1977 

GDCCD7 

CGlOl 

19* 

c 


000007 

CO 133 

2C* 


DIKENSTON XT«1>,FTCII 

coc:o7 

ccin4 

21* 


NA=IArs< NXl 

ccor.0 7 

: DIOS 

22* 


IF tfl A. GT. lino TO 5 

COCCI 1 

00 IQ 7 

23* 


TPIUI-FTMI 

CDUGl *4 

: Gi ID 

24* 


RETURfl 

CCijClG 

CD Ml 

2^i* 


S iFFNiOX-NE.Ol 60 Tq 109 

GCL022 

coin 

2t* 

G 


. GCCC22 

r cm 

2 7* 

G 

COtll- SPACED table INTERPOLATION 

GC G r 2 2 

rcm 

2B* 

G 


C0u022 

0D113 

?9* 


XO- XTcn 

C0C02 3 

Doim 

3f ♦ 


H" XH2 1-XTCD 

GC0C'2S 

GGllS 

31* 


XI= 1X-XG1/H ♦!* 

CjOGC27 

CG116 

32* 


irxi 

crrv 3 4 


)RIGINAL page is 
POOR QUALITIQ 
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Wl 


OGl IT 

33« 


IMlvGT.Qt GO TO JO 

GDDOMI 

cGiri 

3<** 


TPUU- FTdl 

0DCD4S 

u0l2Z 

35* 


iFtNX^BC.DMBLUm FT* 11 ♦ IXI -1- |*IFT f 2 l-FT* 111 

CD 204 7 

C0124 

36* 


RTTIIGW 

CDCQ61 

rQ125 

37* 

10 

ir*I.LT,NAI GO to 20 

Z C1IDD6 5 

1 312 7 

38* 


TPLUl-FlUJAl 

GDCC70 

tQl53 

39 ♦ 


iriKX.C£*OJ TBLUir FTCNAr ♦ * XI-NAI *ff T *M l-FTlNA-1 1 1 

cocrrs 

GE 1 32 



PEUIRN 

CCU112 

uPl 33 

M14 

20 

TPLUl - TTCIJ ♦ IXI'M**rT*l*l l-FT*T I I 

30211 6 

.GlQ l J:4 



RITURM 

OOGl 3 2 

1 

4 3* 

C 


CGLl 32 

OiOli'M 

MM ♦ 

c 

UNEQUAL SPACED TABLE INIERPOLATION 

CC31 32 

00 1 3 >4 

MS* 

c 


GCiil 32 

?Gi JS 

MS* 

100 

ir cx.nr pxT* 1 M go to 3D 

ODLl 36 

Q;G137 

47* 


THui-rnii 

C0G141 

coma 

Me* 


ir<NX.r>r.OI TBLUI= FIMI ♦ fX-XTtll J**FTi2l-FTlll l/lXT<2>-KTiln 

C0C14 3 

« cm2 

M 9 * 


R L Tua^i 

CDDI6G 

CO m3 

S3* 

30 

If rX.LT.ATCNAn GO TO 40 

G0C16M 

CGl^t* 

51* 


TPL'Um rTLNAl 

LODI 7 1 

J:Q 1 «ii6 

S2* 


I f LNX.GE *01 TBLUlrFT INAI*f X-XTiNAlt* CFT IMAl-FTcNA-ll l/lXf CNAI 

C0CI77 

Gcmo 

5 3* 

1 

1 - XT IMA 

G0C177 

poitia 

54 ♦ 


RTTURtl 

i:0;L2l 6 

CD 151 

SS* 

40 

1-1 

CP0722 

G0152 

ss* 


Iff r m 

C0J323 

30 153 

57* 

50' 

ii = nnc*M/2 

G0L226 

D O I SM 

sr * 


lFlX.|T*XTt!in GO TO 60 

C0C231 

GiQlSfa 

59* 


1= 11 

C0C237 

: 01S7 

60* 


CO TO 70 

DO 02 4 D 

CCJS3 

61* 

60 

jGi:= jT 

C0C2M2 

GQlbl 

6 2* 

TO 

ir*l*l*LT.IGEI GO TO SO 

CnjL244 

QG1&3 

63* 


Tf'LUl- FTMJ ♦ iFTtT*ll-FTtI) l**X * XT(I tl/f XTIl* 11-XTiI II 

CDC25C 

OOltM 

64* 


return 

CD0272 

GGi&S 

65* 


CKD 

C-QD3 32 
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O 

</» 


FU^CtlCN TBtU2 ENTRr POINT OOQ353 

SIORAGT USED CODE U 1 D1jO<IS 6; OATA(O) 000Q30 ; BLANK COr^KON C2 1 OObOCO 
CXTEPN AL REFERENCES IB,LOCK« NAfiE > 


□OD3 TBLUl 
OOUH RR3S 


STORA GE ASSIGNMENT iPLOCK * TtPE » RELATIVE LOCATION, N AME I 


onai 



IDL 

0G31 DOOJ27 

rODL 

0001 

GQ0053 

20L 

DCfll 


000215 

200L 

OGOl 


C0C21S 

2«0L 

5CG1 


OGOZ^lI 

2S0L 

GGOl 00D26S 

26QL 

0 001 

0G02S7 

270L 

0001 


0002611 

300L 

ceoo 

R 

coooej 

e 

03 GO 

R 

GO CEO** 

FFl 

0000 I GOQ006 

1 

OCOQ 

I OCODOT 

10 £ 

0000 

T 

000010 

11 

O'OCO 


GOOOl 5 

INJP* 

0200 

1 

cmcii 

11 

CCOO I 000301 

NA 

O’GOO 

I .DiOGOO'2 

ND 

GOOD 

I 

OODOOS 

NBl 

0 0G3 

R 

COOGOQ 

T'Bt-Ul 

OD'GO: 

R 

CG'COQiQ. 

TPL152 















€0100 

!♦ 

CIBLU2 

C0DO07 

1*0 101 

?• 


function tBlU2|X,V,XT ,7T,FT,IX ,17,N‘*,NY,MX,HV1 

0OD007 

CGlOl 

3* 

C 


0QQDO7 

€0101 

4» 

C 

PURPOSE TWO OlMENSION LINEAR INTERPOLATICN 

XDDflOT 

raici 

5* 

G 


tOCCGI 

X XIDl 

6* 

G 

HCT'HCD BlNAPt SEARCH TO FIND MCmREST GRID POINTS. 

C3G3G7 

GDlOl 

7* 

C 

TBLUl IS USED TO REDUCE THE 1 M TCBPO LATI ON DIMENSION. 

GC0CD7 

xoiai 

e* 

C 


G3C007 

r c 121 


c 

CALL SEPUENCE 

GGC.007 

COlQl 

^z* 

c 


DOGGO 7 

CPltil 

ii* 

c 

«,V - POINT at which INTERPOLATION IS DESIRED 

GO COO 7 

to 101 

12* 

c 

XT.YT- ARRAfS CONTAINIHB INDEPENCENT VARIABLE GRID POINTS 

GOQ007 

00101 

13» 

c 

FT - TWO DIEPSNIOn ARrAT OF VALUES SUCH THAT FHl.31 

CCC007 

C 0101 

14 ♦ 

c 

CORSE SPOND S To X H I » , T T < J » • 

CCLC07 

CX'lGl 

1 

c 

IX, 17- INDTCATORS FOR GRID SPftClKG 

GDLDC7 

CD 101 

16* 

c 

IF IX = D then XT CONI AIMS EoUAL SPACED VALUES 

000307 

ceioi 

17* 

c 

IF lX.HC.D then XT CONTAINS UNCOHAL SPACED VALUES 

03C037 

CGiai 

Ifl* 

c 

NX,N7- APS (NX 1 ,ABS(N Yl ARE THE ARRAY DlMENSiCMS FOR XT,7T 

COCU07 

coni 

19* 

c 

IF NX.LT.0 THEN TRUNCATE OUTSIDE XT RANGE 

orccoT 

to 101 

27 * 

c 

IF NX.GT.D THEN EXTHAPDLATr. OUTSIDE XT RANGE 

totr-c? 

10 101 

21* 

c 

L IMF WISE FOR NY AND YT VALUES. 

OOLOO 7 

fXlOl 

22 * 

G 

MX, M7- DUMMY APGUHEN T S . SE T EQUAL TO ADSIUXI, AnSTNVl. 

rOLC07 

1 0101 

23* 

G 


totnc? 

CGIDI 

24* 

G 

URITTEN ST A.U. WARREN VERSION 1, JUNE 1977 

LGuOOT 

CO 101 

25* 

C 


gOGOO 7 

CI013T 

2X* 


IDIMENSION XTM) ,YT ( 1 J ,FTM 1 

GGG337 

DO 104 

27* 


NA r TARSINXl 

DGC007 

LQ1Q5 . 

2S* 


MX = NA 

tnccM 

CD1G6 

29 * 


NM = lASStNYI 

C3GC12 

GDI 37 

3r* 


MY r Kb 

GncriM 


154 BCS 40180 


COllO 

31* 



IFIS’A.&T.liGO TO la 


CO 0015 

con? 

32* 



T!>LU2 = TBLUltV,YT*FT,rf,MTI 


GO 0020 

C0U5 

3 3* 



RCTUn.Y 


CO 003 C 

00 

3*f* 


10 

i rCNfl .G T . I>G0 TO 2'0 


0D0039 

rOM6 

35* 



■Tf‘LH2 = TSLUl(X,XT,fT,lX,NX) 


C0.CJC37 

rciiT 

36* 



rttuhn 


DCCC97 

00117 

37* 

C 


y OUTSIDE YT TABLE 

RANGt 

00CG97 

LOUT 

3fi* 

C 




CDG09 7 

CD120 

39* 


20 

TFC Y.6T, YTHIIBO TO ICO 


GDDC53 

cm 22 




C = lY-Yin n/<YT I2»- YTm» 


CQicrsb 

G G 1 ? 3 

kl* 



rri = TP'LUHX,XI,.FTI1 ),1X ,NXI 


GOGHb*! 

OC12M 

k2’* 



Tr'LU2 =FF1 


DCCa76 

CD 125 

M2*. 



iriNY.GT.DirOLU? aFFl* F*! IB LU 1 C X, XT ,F T < NA+ 1» , II ,NX 1 -FFll 

GDLD77 

C0127 

Mk* 



fliCruHifj 


CD 012 3 

Lri27 

M5* 

c 




CD 012 3 

0C130 

M^€>* 


ICO 

TM Y.LT. YT INC I) CO TO 200' 


0DC127 

00132 

M7* 



E : «YT(ttn»-Yl/IYTINDt-YITNB-I»l 


D0C13*i 

00133 

** P 4 



NDl : KA*tNn-n«l 


CDD192 

GG13H 

tjf‘4 



FTl : TDLUUX,XT,f TTNBII.IX.MXI 


CO 01*1 7 

GO 115 

50* 



TPLU 2 = rri 


CDCV63 

CD 13b 

5 1* 



3F tHY .GT .0IT1VLO2 a FFl* E * (TB LOI CX ,XT*F T 1 WB 1 -NA 1 , 1»,«X ► -Ffll 

GO C lb 4 

aciHo 

52* 



Rf Tlin N 


D0D21 1 

OD Ik 2 

53* 

c 




D0u2lJ 

cemo 

5*4* 

c 


Yl GRID St ARCH AND 

iNTtRPOLATION 

C0G21 1 

QC\k2 

55* 

c 




uO'021 1 

CQikl 

5C* 


200: 

ir(TV,«G,ClRO TO 2%n 


000215 

VO 1*1 3 

57* 



I = <Y - YTmi/<YTC21-VTf IM ♦ 1. 


CG0216 

uDim 

5H* 



GO TO 3GQ 


C 002 33 

LQlkb 

£9* 


2*10 

1 = 1 


D00235 

CCl*ii6 

60 * 



rnc = tiB 


Ctu236 

LD1*4 7 

61* 


250 

IT - iIDE*Il/2 


occ?m 

OC15J 

62 ♦ 



iriY.LT, YT tin 100 TO 260 


cat) 2 9 9 

:ei52 

63* 



1- 11 


0DC252 

00 153 

69 * 



CO TO 270 


000253 

CQ15M 

65* 


260 

Ifii - II 


GG0255 

00155 

fcb* 


2 TO 

.tT. IGGIGO TO 250 


Lr0257 

r 0 1 5 5 

67* 

c 




COC257 

rc 157 

6fi* 


3 00: 

r = lV-YT CIU/(YTf I>ll-YTM11 


C0C26«( 

00160 

69* 



11= NA* (1-11*1 


CC0275 

roibi 

7C* 



rri = TB'Lul fXtXT,rrm)*iXtNX j 


COG 302 

:0162 

71* 



Trnj2 = Ffl ♦ E»trBtUl(XpXT.FTtIl*MAl,lXt 

NXI -FFll 

OQC316 

0016 3 

72* 



RITUD'N 


000336 

001 bH 

73* 



f IJO 


00 09:5 5 


cn 

o 

c/> 


O V 

H-* 

03 

O 

CO SUftROUTlWC WNIF ENTRY POINT 0 DOGS 5 

STORAGE USED COPE Cl* GC0367; DATA ICl 000017; GLANK COHNONC2I OOOQDO 
COKHON FLOCKS 
00G3 CINPL QOQDC3 

EXtfjRNAL Rf^frRrNtrS CBLOCKf N*HE1 
OC'DR NERRIS 



STORAGE ASSIGNWCNT I BLOCK, TYPE, RELATIVE LOCATION* KAHE I 

00G3 aOGOOl TGnT 0003 I 000000 INPL QGDO 000013 INJPt 0003 I 000002 iTESf OCOO 0 000000 K 

OOGO D D0GcQ2 Y 


CO IDO 1 • CUN If 

GOlQl 2* SLBROUTINt UNirfU«lVl 

GOIG3 3* CONNON /CIHPL/ IM*L * ICNT,ITEST 


0 G li04 

4* 

OCURLE P 

GOJOV 


data Y/2 

E0107 

£♦ 

irMNPL. 

?Cill 

?♦ 

IT flX.E 

CDUl 

6* 

xr nnotn 

00114' 

9* 

u- X/1'6 7 

cons 

IC* 

JX = X 

CCl 16 

n* 

RTTURN 

L0117 

12* 

t NO 


RECTSTOM X.Y 
'1396 7 ,00/ 

eO.O •AND. ITfSl.E0.U 1K“<I31%69 

O.IT lx = ^131*169 

IK*Y, 16777216.001 
772 J 5. 


OOQOOO 

toccoo 

COCGCO 
coot 00 
DGGGOC 
CGCECO 
G0Q013 
C£jG32e 
OGOQ3S 
DCCOH C 
ECC046 
00 to 6 6 
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4.0 PERMANENT FILE MAINTENANCE PROGRAM DESCRIPTION 

4.1 INTRODUCTION 

The Permanent File Maintenance program (FILOAD) Is used to load and modify 
standard component input-output descriptions which are kept on the permanent 
file, M18, This program is used only when it is necessary to modify the in- 
put, output, or table 4iSt of an existing standard component or when a new 
standard component is to be added to the system. 

4.2 PROGRAM STRUCTURE 


Figure 4.2-1 contains a macro flow diagram of the Permanent File Maintenance 
program. Statement numbers in the main (FILOAD) program are given for each 
of the program's five principle tasks. The sequence of performing these tasks 
depends on the program commands. As each command is read it is printed on 
the Tineprinter to provide a record of progress through the set of commands. 

4,2.1 Command- I nterpretat i on 

The command interpretation process for the FILOAD program is shown on Fig- 
ure 4,2-2. Each phrase is tested against the five possible command phrases; 
LIST STANDARD COMPONENTS, PURGE, NEW F I LE, DUMP F I LE, and SYMBOL. I f one 
of these phases Is identified, branching occurs from statement 300 to a loca- 
tion that performs these tasks, 

the LIST STANDARD COMPONENTS command sets a flag, (LlST=i), which causes 
the input, output, and table lists of any new or modified compohents to be 
printed upon the completion of processing al I input commands. The PURGE conv- 
mand causes the name of the purged component to be removed from the list 
of standard Gomponent names, GMPNTS. This results in the removal pf all name 
lists associated with that component from the MlB file, when the degas proc- 
ess is performed at the end of the run. The SYMBOL command causes the symbol 
number following a standard compoheht name to be added to characters 9 and 
10 of that name via the PUTCOO routine. 
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START 


eOT ON INPUT PILE 


READ&PRINT^ 
COMMAND / 
iCARD / 


PRINT INPUr 
^OUtPUt*& TABLE 
\LI5TB FOR ALL/ 
\ MODIFIED 7 
\ COMPON- / 
\ENTS / 


NXTPH 


LOCATE 

NEXT 

PHRASE 


IS ^ 
PHRASE 
BLANK 


DEGAS K18 
BV COPYING all 
DATA ONTO TEMP 
FILE H19 


^ IS X 
PHRASE 
COMMAND 
^PHRASE > 


^ BRANCH > 
TO 

NEW command, 


^ 720 ^ 


LIST STANDARD 
COMPONENT I 


phraseX. 

^N ACCEPTABLE 
\^UTTYPE/< 


LOAD • \ 


SYMBOL 


lPRINT ' ISN T 
VRECOGNIZABLEy 
\ NAME LIST / 
V TYPE*’ / 


READ name 
LISTF flOM 
INPUT DATAV 


LOAD • 0 


LOAD - 1 



Figure M.2^2, FILOAD Program - Flow Diagram 


WRITE NAME 
LIST ON 

im J 
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4.2.2 Name Lis^ Loadin 


If a phrase Is hof a comnand phrase, characters 3 through 6 are compared to 
the three acceptable Input name list types; INPT, OUTP,and TABS; If one of 
these three types Is not recognized, a warning message is printed and a flag 
(LOAO^) Is set to prevent data from being loaded ontc the M18 file. If a 
recognizable name list type occurs, the component name is obtained from char- 
acters 1 and 2 of the phrase, this component name is compared to existing 
component names. If it is an existing component name the sped fied name list 
for that component is modified. If the component name does not match an exist- 
ing component name, the new component name is added to the list of library 
components and a notice is printed that a new component has been added. De- 
fault input, output, and table name lists of zero length are then added to 
the M18 file to assure that all three lists exist for all components. This 

Is necessary to prevent READWS errors In the Model Generation program for 

components that might otherwise not have table name lists. The name list con- 
tained in the input data is then read and loaded onto the M18 file. 

The name list data is not in a free field format. The number of names must 

match that given in the phrase fb I I owing the input list name^ and the for- 
mat of the name data must match that given in Section 7 of Volume II . Errors 
In formating name list data can cause erroneous I i sts to be loaded. These 

will lead to errors in connections to the affected component. 

A.2.5 M18 Fi le Degas ProceduT-e 

The WRITMS routine leaves previous versions of stored items on the permanent 
fi ie as "dead space" whenever the new version is of a different iength than 
the original. In order to remove this dead space, the FI LOAD program creates 
a new copy of the M18 file on toeal file M19 upon the completion of each run, 

M19 is loaded by copying the input, output, and table name list for each com- 

ponent listed in the list CMPNTS, from M18, 
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» 1 


It is during this copy that the name lists for arty purged components are de- 
leted. Upon the suceessful completion of the run, M19 is copied onto M18. 

4.2.4 Permanent Files 

The random access permanent tile M18 is referred to in the FILOAD program 
as unit IB. This file contains an input, output, and table name list for each 
standard component and a list of all standard component names. 

4.2.5 Warn-ina Messages 

Table 4.2 lists the three warning messages that can be generated by the FILOAD 
program. These messages are preceded by: 

•5'“h:-wARNING’«^ 5^''’, I f either messages 1 or 2 are printed, the name l ist associ- 
ated with these warnings will not be loaded. Other correct name lists for 
that or other components will be loaded. 

4.3 FILOAD PROGRAM SOURCE LISTINGS 

Compilation listings of the source code for the Fiload proeram follows. Some 
of the subroutines are also used in t'ie other programs. The names of the 
Fiload routines, listed in aiphabetiGal order, are: 


0CDDUB 

KGMSTR 

GOMOAT 

LCWPH 

CSORT 

NCODE 

DAND 

NUMERC 

DCMPL 

NXTPH 

DOR 

PUTCOD 

PUMPPF 

PUTT 

FILOAD 

README 

6ETC0D 

SHIFT 

GETT 

STRMOV 

ISCAN 

WRITMS 


100 
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Si 






TABLE 4.2 

PERMANENT FILE MAINTENANCE PROGRAM WARNING MESSAGES 

1. CAN'T IDENTIFY xx AS A STANDARD COMPONENT 

The phase xx following the command PURGE or SYMBOL 
Is not an existing standard component name. Check 
spel ling of xx, 

2. IN xxxxxxxxxx zzzz ISN'T A RECOGNIZED NAME LIST TYPE, 

NAME LIST WILL NOT BE LOADED. 

Gbaracters 3 through 6, zzzz. In the phrase xxxxxxxxxx 
should be one of the name list types: INPT, OUTP, or 

TABS, Check spelling of xXxxxxxxxx, 

3. xxxxxxxxxx ISN'T A VALID NUMBER OF NAMES FOR NAME LIST. 
NAA/1 LIST WILL NOT BE LOADED, 

A numeric phrase giving the number of names In the 
following name list must follow the component name- 
I ist type phrase. 
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SUl^ROUTIfjE &CDOUB tNTPV POINT 000 1>5 


STORAGE UsrO CODE ill 0QCl3m DmAiOl 000033; BLANK CONHONIII 000000 


EXTERNAL RErtRENCES I BLOCH » NAKE » 

0003 GfTT 

0004 PUTT 
3005 KNCODS 
30'C6 N;DCOD$ 

00.0:7 iJlD2> 

OOlO HI RR31 



storage A&SICNHENT IBIOCK* TYPE, RELATIVE LOCATION^ MAREI [ 

uOOO DOOCLS usr cool 000004 117G 0000 000D16 125F 0001 000021 12TG OCCt COCOTO 30L i 
0000 0 OOOCIO BLANKS CO0O 000023 INJPS 0000 I 000014 K 0000 D 000006 PERIOD 0000 0 OOtOOR T ^ 
0000 D OGOCrQO TENP OOOG D 000002 TPHRS 0000 0 C00012 TT 


00101 

!♦ 



StlPROUTIHE BCnOlIBi VALUE iPHRSI 



DOCOOO 

CD 10 3 

2* 



oountc Precision value « purs 



CO GDC C 

00104 

3* 



OOUt' LE PRECISION PE HP 



CCD30D 

0 0104 

4* 

C 

PURPOJC CONVCPT alpha NUtirRIC INrORHATION 

INTO 0/P FORMAT 

CDOODO 

0 01 04 

5* 

C 

CALL SCOIOJCE VALUE - noUBLC PRfCISlON NUHERIC VALUE 

ON RETURN 

ocaoDC 

CC1U4 


c 


PURS - LEFT AOJtJSTEO ALPHA 

CHARACTERS 

ON INPUT 

cooroci 

eci04 

T0 

c 





GOGCCC 

GO 104 


c 


ir LS-CMAiRACTER op PHRS is no? •••t THEN INSERT PCRTOO 

CQLOCC 

or IQS 

9* 



ntiunif pffCGTsiON tphrs, t / • 



CCGGOO 

OCIO? 

10* 



DOlJHir PPrClilON PERI 00 / •. 



CtlCL’OC 

-0111 

MA 



nourtr rPTcisiDw oLAtJKS / • 



rOCCGG 

G c 11 5 

.12* 



TPUPS :: PfiRS 



Gooroo 

00114 

12* 



noonir pure rs ion tt 



CCCC04 

00114 

U * 

c 


CHUCK fOK PCRIOD 



GC0CC4 

001 16 

I!:* 



DO 10 H “ 1, 12 



GOOOU4 

0D121 

lb* 



CALL nCTTlTpimS, K, TTI 



C0(jG04 

00122 

n* 



IT CIT .ro* PERI 001 GO TO 30 



COGOl 1 

QC124 

If* 


10 

.COM TNUC 



6DC021 

>D 126 

iq* 



no 20 K r 17, 1 , ^1 



C0G021 

OC 1 31 

22* 



CALL reUCTPHRS, Kt T1 



oruo2i 

00122 

21* 



IT (T .NL* niANKS -ANO* T .WE. PERfODI 



C0UL26 

DO l 52 

22« 


■] 

1 call PtJTTCTPHRSt «♦!* PERIOD) 



0DDC26 

00 1 34 

23* 



IT 11 .NT, PLANKS •AND, | ^ PERIOD) 

60 TO 30 


GD0C52 

00136 

2 4* 


20 

COM imit 



L0C07P 

:}0143 

25* 



VAUJI - 0 



G0CD70 

0C141 

26* 



Rif TUR N 



C0or:72 

nci42 

274 


50 

CONTINUE 



C0CG76 

301M2 

2£4 

g 





GpCD76 
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CC1M2 

29* 

c 


ND(T, RIGHT JUSTIFY ALPHA REPRtStNTATION IM 

D00076 

CQ1M2 

3G* 

c 


PHR5 USING RI2 EDIT CODE 

C0C:!7 6 

001^3 

31 ♦ 



ENCOOrilZ, 115, TEMPI TPHRS 

300076 

CGI <16 

32* 


U5 

r0RMAUP12 1 

C0010<I 

IQlMh 

33* 

c 



cc3ia<« 

CC1M6 

3^* 

c 


NOW, W£ ARC BEAPY FOR OfCOOC 

UOaiQH 

CCH7 

35* 



Oftourtiz, 125, TEMPI VALUE 

UBniQH 

t- T 1 5 2 

36* 


125 

rfiHPATtG12.6> 

000113 

□ 01S5 

37* 



BETUBW 

OO'OU 3 

QGim 

3e* 



end 

COG 133 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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SUPBOUTINC COKOAT 


ENTRY POINT 000157 


STORAGE USTD CODE (II OGOI6<<: DATA (01 ODOOBO: PI.ANK C0HM0N I2I OOOiOOO 
COPHON BLOCKS 
0003 CIO 000003 

EXTERNAL REFERENGES (BLOCK, NAME I 



S TRKOV 

ontiS 

Pf ao»lS 

oge:6 

SVUfOUS 

0C07 

Mnil 

3on 

Mn^i 

JGM 

KCPR31 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME! 

0000 000007 lOir COOl 00C06U 12>l6 0001 OQOIOG 13SG 0001 ODDllS 200L OCQO (jOOOid 20 ir 

OCCO D CU0002 ATNCEX 0000 0 OOODOQ DBLANK 0000 0 000004 ON 0000 I 0QC006 I QC05 I 000002 lOlAC 


03 EG 

CC002T 

INJPS 0003 OOODCO IREAO 0003 T OOOOQl XWftITC 


ODIOI 

!♦ 


SllBPOUTING C0HnAT<GOMNAH*TYPE:,NtWAHE:5) 

C0G0G2 

0D133 

7* 


IMPLICIT DouatE pnieisioM (a - 71 

CODC02 

GOIG'I 



IMPLICIT iNrCOIf? fit J. H« L« M» HJ 

CC0C02 

C G 1 3 5 

ti* 


n-OUaLC PRECISTOW OBLANK / • 

COCOC? 

C3105 

5* 

c 

PURiPOSf OBTAIN LISTS Cf INPinS , OinPUTS, OR TABLES REQUlRCO 

CDC0D2 

I,jC luS 

h* 

c 

FOR A SPrCTFlEn SVAmiARD COUPOWENT 

C3G0D2 

CDKir* 

?♦ 

c 

GALL SEOIIENCE CGHNAM - S T AMD^AR D COMPOWEKT NAME 

DDC3CZ 

uOllS 

fi * 

c 

TYPE - TYPt or LIST RXQUCSTCD f*G. IKPT ,OUTP , T ABS 

DDGCOZ 

C01O5 


c 

N - NUKaCR or NAMES IN LIST 

CDuPQ2 

:ia lOfi 

1 c* 

c 

KAME5 - WAM.rS OF OUANTlTICS 

CCD2a2 

LG105 

J 1* 

c 

KETHOD LISTS ARE STOREO OM A RANDOM ACCESS PERHANCNT FILE AND 

0 OU 002 

CCiOS 

17* 

c 

ACCESSED VIA THf MASS STOPAGE I/O rCATUPCS OF FTN* 

ccono 2 

zoizs 

13* 

c 

FOR EAC>^ STANDARD COMPONENT, 3 LISTS WILL EE CREATED 

C0C0C2 

CC105 

m * 

c 

UTin THE INDEX NAMES XXINPT, XXGUTP, XYTAMS UHtT?E XX 

CCC3G2 

roiC5 

15 * 

€ 

REPRESENTS THE STANflAHO COMPONENT NAME. THE FIRST WORD 

Dccoaz 

3G1G& 

1 i* 

c 

IN each LIST WILL CONTAIN THE NUHnCR OF WORDS IN THE LIST 

G0DDQ2 

10135 

17* 

G 

P L US 1 . 

0OCCC2 

l01G7 

la* 


GOhMGN/ClO/TRf ADr I write DI AS 

CO ODD 2 

00110 

19* 


DPUBLF PRECISION N'AHESfll 

CCL0C2 

couu 

ZZ^ 

C 

> FORM INDEX 

CaC332 

Culll 

21* 


AlNDEX^CiaANK 

crooo 2 

0C112 

22* 


CALL 51RM0U fCOMNAHt 1 • 2 , A TwDEX , I I 

Q0CD04 

CGU3 

23* 


CALL STRMOV (T YPE , 1 , 4, AlN0EXt3 1 

000013 

00115 

2M* 

C 

> READ FIRST WORD IN RECORD 

L1JDC13 
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DOIM 

25* 


C*tL eE*D»Stl8,0M,l,*IM0EXI 

CQC022 

50115 



N t>W 

DCQCJO 

OCllS 

27# 

cr — 

■> READ V0PD5, 

GDGD2C 

6011b 

2^^ 


iriu .IT. nff-i 

6BEC36 

06120 

2«>* 


CALL r?C aOKS UStPMHCS.ti ,Alf<DEX 1 

LCCCHH 

C0121 

3G# 


IFtN.LE* 1 1 CO TO 200 

caaaS2 

fOl21 

3J # 

c 

•> Slljn IfOSDS OVEP OME TO EU.XM7N8TC KO. or WORDS STORED lH IS 

cq:g5? 

LQ12 3 

22# 


00 16C 1=2, M 

EOSaSb 

X2126 

22* 


J'niHCsn 1 

LSCG6H 

C2127 

# 

ICQ 

C DL 7 l.*fUE 

ECCCi 5 

cciri 

25# 



COCQ^^L 

22132 

36# 


7 r f TDIAG ^CO ,ea> VHTTCflWftTTE.iai 7 tKAKCSC 11 *1-1, Ml 

CQCaT 1 

CO mi 

3 7* 

IQl 

AT ! ■ COiOA T-MA MCi * / C202H1 1 

COG) 1 1 

LCt^2 

Zf^* 


RE1TU3M 

COu t 1 1 

DC 1M3 


2C0 

Mrc 

cacns 

cc m** 

HO* 


TF 1 IOTAC.ro .eClWRl 7f « iWRlTEtZOl I 

DDCJ l 5 

ccm? 

H 1* 

201 

FORKATI* COMDAT-M-GM 

GC C 1 2 5 

CC150 

H 2 * 


PC TUfi.'r 

CaCl25 

VCISI 

H 2* 



G0C162 
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eN'T'RV POINT 000203 


SUeROUTINC CSORT 

STORAG'C 'USFO COOE ill 000215; OATAIOl 000046; OLANK C0HH0N(2I OOOQOO 

CXTERNAL RTFERCNCeS I BLOCK t NAKEI 

0GQ3 I SCAM 
0004 PUTl 
QG05 NCKRIt 


STORAGE assignment ('BLOCK, TYPE, RELATIVE LOCATION, NAHE) 


0 001 


CijPG'2 7 

125G 

OQQl 


000112 

1 S D G 

D'OOl 


000021 

20 GL 

0001 


ODD 072 

220L 

QCQi 


CO CG7S 

3C0L 

0001 


CDCQ77 

320L 

DQOl 


3001 IS 

3 3DL 

Dcai 


DG0156 

Qt 

0001 


000 1 61 

400 L 

0001 


D0C171 


0:000 

0 

GCGG22 

DA I 

Gu0G 

0 

000024 

DM1 

DDOD 

0 

.P0O.GO4 

08LAMK 

00.00 

D 

OQDOl'6 

OTEHP 

O'QCO 

I 

000000 

I 

0 000 

1 

CCCEOl 

II 

GCGO 


000033 

INJPS 

0i003 

D 

OODOOQ 

IS CAN 

ocoo 

0 

0DC020 

HEMP 

OCQO 

I 

CD roil 

J 

apoo 

1 

caaozz 


DCiDO 

I 

000024 

JD A 1 1 

GD3D 

I 

00 CO IS 

K 

0000 

0 

CO 0020 

KHRl 

GOOD 

0 

C0Q002 

KHR2 

0003 

1 

DDOOIG 

:K2 

QCGD 

1 

000007 

LliK 

DODO 

I 

OOOCV<i 

H 

0000 

I 

QOOQU 

HI 

OCCO 

I 

C00G06 

N 


0000 I C00012 N2 


D01O1 

1* 


SUDROUT INE GSORT tl A , Nfli 

000002 

GiDlQJ 

2* 


1HPL1C17 DOllBie PRECISION (A - 21 

GD0D02 

■CO 10^ 

3^ 


IMPLICIT INTEGER tJ - N1 

CS'uDD2 

aoius 

4* 


DOUBLE PRECISION lAfH 

CGGC02 

nci06 

S* 


integer I, II 

030002 

n 0 1 06 

6« 

c****«« 

000002 

uD106 

14 

c 

PURPOSE 

CO C C0 2 

0C1C6 

8* 

c 

CSORT SORTS THE ELEMENTS OT A SI NGLE-OlMe MSI ON DOUBLE- 

00 (JliC 2 

20106 

94 

c 

PRECISION ARRAY TN ASCENOI NB^CHARACTER IDISPLAY CODE) OROERv 

GO0OOZ 

0010:6 

104 

G 

WITH A SORT OPTION THAT PLAGES JULANK CHARACTERS FIRST IN THE 

LOU DC 2 

G'0ia6 

114 

G 

A L PM A ME K IC SC O UE NiC E • 

L0'LOn2 

0C1D6 

12* 

C 

7 nr SHEiLl ALGOR ITH IS USED# 

C.OGC02 

0:0106 

13* 

G 

USAGE 

L0DD02 

0C 106 

14* 

C 

DIMCNSION 1AC0> VMERE J-lARSiWl 

CG0C32 

OCl'Jb 

15* 

G 

CALL CSOPT ( lAtN ) 

000002 

00106 

16* 

e 

INPUT PARAMETERS 

DO0CG2 

DQlOb 

17* 

G 

lA - INPUT ARRAY TO RE SORTED IN PLACE 

0OCO02 

:gi 06 

1 ?i ♦ 

G 

N - lAPSlN) IS NUMnER OF ELEMENTS IN ARRAY lA 

GOOPG2 

1 06 

19* 

C 

N,LT*3 PCRFORH iNOiRHAL SORT, SEE ABSTRACT 

COLP02 

0 C 1 06 

20* 

c 

N*0T.O perform modified sort, see ABSTRACT 

cocrc2 

00106 

21* 

G 

OUTPUT PAPA meters 

COL DO 2 

C01Q6 

22* 

C 

lA the input array is sorted in place 

000002 

0 0106 

2 3* 

c 

USER Error 

CDLCD2 

0.0 1C6 

24 * 

c 

UHEN M,EO*0f CONTROL IS RETURNED lO THE CALLING PROGRAM 

G0C0O2 

DO106 

25* 

G 

WITHOUT SORTING. 

CGOG02 

DD10'6 

26* 

.c****«* 

EOC002 

DC 1 06 

27* 

c 

t 


DDCCQ2 
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C0107 

2t* 



DOLTBir PRECISION KHRl, KHP2 

C0C002 

uOllO 

29» 



COUI V/ILCNCE cif THP .KHRl } • ID* I . JD* I > , 1 0* 1 1 > JO AT1 1 

C00C02 

CDUl 

30^ 



DounLC pnrcisioN dplank / * 

cncoo 2 

ccni 

31 ♦ 

C 

• * 

* validity checks 

0CCiD32 

CPU 3 

32^ 



IF Om.tQ.Cl) 60 TQ 990 

CCGOCZ 

CCXJi> 

33* 



u jAasunn 

666604 

DL1U> 

34* 



IF fmj*l7.0l 60 TO 300 

COC006 

C0116 

3 

c 

* * 

* SWITCH CHA17AC7FRS 

CaC£?06 

CG 123 

26* 



KflRl - DliLANK 

DODOn 

OC121 

37* 



K HK 2 T D 

ncnci 3 

30122 

3C • 



L IM - J 2*H 

CGCOl 5 

COI23 

3'"« 


2 CO 

H2 - ] 

L‘DlC2 I 

OD124 

40* 



no 2 1^ J- 1 , 1 XH 

L0CC72 

30127 

4 1 • 



f-r? = UH-K2*1 

cnc rz 1 

00130 

4 2* 



1 - ISCaH (KHRJ,lfltlAt^'2*W2,Hll 

COC033 

DC131 

43* 



IF 1UCQ*03 60 ro 220 

DOUGS 1 

00133 

44 * 



CALL PUTT \ TA.I *KHf?2) 

GG005 3 

0 G 1 3 4 

45* 



IF n .CC .LI«> 60 TO 220 

GCCG6C 

CD126 

4 t* 


210 

«2 “ J* ! 

COOG64 

CD143 

4 7* 


220 

IF (F*Hrn •ro,Dj no to 9?d 

CGUn72 

0C14Q 

4 t* 

. c 

* * 

* SGJ^T THC ARRAY 

CGC072 

C01H2 

4 9* 


300 

M = H 

cruoTb 

00143 

56* 


320 

H = H/2 

CCLD7 7 

00144 

51* 



IF thar.Ol GO TO 400 

CD61C 1 

C01M6 

52* 



K = H-H 

C0C103 

00147 

53* 



00 340 J=i,K 

000106 

00 152 

54 * 



1 = J 

J0U12 

G0153 

55* 


3 30 

II = UH 

DGUl 1 5 

0C1S4 

56 + 



0 A r = ] A < 1 1 

00 U 1 2 4 

:di55 

57 * 



DAI 1 = lAtllJ 

00L126 

CCl 55 

se* 



ITEHp = JOAI * JOAII 

DGCl 30 

C0157 

59* 



IF fnEMP*LF*Dl GO TO 3 40 

0DC3 4 0 

0C161 

60* 



OKHPrlAin 

UQUl 4 3 

CG 162 

6 1* 



1 M i ) = I A 1 T n 

CCC14 5 

C fi 1 6 3 

62* 



J A ( I I 1 r D7CHP 

G0L14 7 

00 lfi4 

63* 



7 - l"h 

LOUSQ 

CC 165 

64* 



IF U*C.T*C» GO TO 33Q 

OG C 1 5 3 

00167 

65 * 


3 40 

COHTILUE 

PCD15 7 

com 

66* 



CP TO 32D 

00015? 

CC171 

67* 

c 

* * 

* SWITCH cMAftACTCRS BACK 

000157 

: D172 

6f-* 


4 PD 

ir (a\%LT*0» 60 TO 990 

0PL161 

GG174 

6 9* 



KHRl ' □ 

C0G163 

^0175 

7G* 



KHft2 - noLAHK 

LG0165 

D0176 

71* 



GO TO 2C0 

DOC 16 7 

roi77 

72* 


9 90 

CONTIHUC 

CGCl 7 1 

G0200 

73* 



RTTURH 

cool 7 1 

00201 

7 4* 
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FUNCTION O'tNO CNTRy POINT 000023 


STORtCE USFO COOetll OOOD2S; 0«T«(OI OOOOtS; OLAN'K G0NM0N(2I 000000 


CXTERNAL RtFtRCNCGS t BLOCK* N«HE I 
0003 NCRR3t 


STOPACt ASSIGNMENT LBLOGK, TYPE, RELATIVE LOCATION, NAMCI 

0000 0 COCOOO OAND 0000 DOOOM INJPS QOOO I 000002 II OCOO I OOCOOB 12 0000 1 COOOOB 13 

0000 O 000002 n 0000 0 OOOOOB T2 0000 0 OOOG06 T3 


roioi 


DOUPLF PRECISION FUNCTION DAMDCEl, E21 

cooooo 

COIOJ 

2* 

OOURLE PRECISION El, C2 

ooccoo 

OClO^ 

3* 

OOUBLr PRECISION Tl, 12, T 3 

Doonoo 

GO 10 S 


INTfGfB Illzl, 1212 », 13I3» 

no co o Q 

vGl36 


COUIVALCNCE aitll, HI, (I2tll, T2I, 113111, T3I 

COCOuG 

CC1D7 

t* 

TV : fl 

C9CCG0 

DQilD 


T? = F2 

COGGC 1 

ICll 1 


13tH r ANtHlKlI, I2CIII 

Gcccai 

GG112 


13(2 1 T ANO (IH2I , 12(21* 

COC'CGfe 

0 G1 1 3 

10* 

OANO =13 

rocci 1 

OOU<l 

u* 

RFTUHN 

GOCOIJ 

C-0115 

12^ 

C NO 

C0CC2<i 


I 
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1 ;i.. 








I 

] 


u. 


FUNCTION DCNPL tWTRY POINT 00Q017 

STORAGC UStD CO^l U I GQGOMr DATA (01 000012; BLANK C0HH0NC2) OOODOO 

EXTCRNAL REFERrNGFS tBLOCK* MAHEJ 
0003 NCRR3S 


STORAGE ASS1&N'H£NT (BLOGH, TYPE, RELATIVE tOCATIONp N'AHFl 


□ DOO D 000000 PCMPL OOGO O0OGO6 INJPl OOOD I 000002 II OQOO I 00000^ 12 OCDO 0 C0COQ3? Tl 


OOGO 

D :CCCD04 T2 



i 

00101 

1* 

ooueLf PRrcTsioN ruNCTion ocnPLiEii 

OOCGQO 

- - 

OQIGI 

2* 

OOURC PfiECIStON El 

000000 


CClQH 

3* 

OOUB'LE PRECISION Tl, T2 

COCGOC 


>0105 

H* 

1N1ECER 11 (2l. 1M2I 

OOCQOO 


GO 106 

5* 

ECUIVALEMCE Itim, III., 4I2I1), TM 

COG COO 


G^QIOT 

6^ 

n - n 

CCGOOO 

i 

00110 

7* 

urn - conpimtnr 

GOCCOl 

M 

r. 0 j 1 1 

8* 

12«2T = C0HPL(IU21 I 

00 000 3 


CQi 1 2 

9* 

DCM'PL = 12 

GO^COS 

.. 

00 11 3 

iCA 

BE 1 URN 

000007 


O.D 1 1 4 


END a OGHPL 

0OCO2O 



f 


i 

! 


"■if- ••■ 
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FUNCTION OOR 


CNTRY POINT D0Q023 


STOR^GF USeO COnCTlI GOOOP5; OATAtO) 000015; BtAMK C0MW0N<21 OODOOO 

tXTCRNAL RCFERfNCCS IfJtOCK* NAHCI 
0003 N£Rfi3» 


STORAGi: A5SI6NKENT tBLOCK, TYPE* RELATIVE LOCATION* NAHEl 


0000 

D ODOCOQ 

□OR 

DCOO 

00001 1 

itiJPS 

0 000 

I 

000002 

11 

0000 1 ODQ004 12 

OCOO I O0OQO6 13 

00=00: 

D 0UGDD2 

T1 

OGpO 

D OOOGOA 


0000 

0 

OOOOOE 

T3 




COlOl 

1* 

OOUOLE PRECISION FUNCTION OORtClp E2> 

CQOOOO 

GOIGI 

2* 

OOUPLr PRECtSlGN El:, E2 

COUCOQ 

G0134 

3* 

OOODLC PRECISION Tl, T2, T3 

OOOCQO 

00105 


INTEGfR 11 <21, 12<2l, 13C3I 

000000 

CD1D6 


EOUlVftLENCC tlKll, Til, Cx2(ll, T2 1 , {1301, T3I 

C03CQC 

CD107 

6* 

T3 = n 

CGCcoe 

DG 110 

7A 

T2 ’ E2 

CGDGOl 

DG U 1 

B* 

IMll = OR t lull, I2MU 

L00Q03 

lGU2 

9 ♦ 

13(2) = OR nitZl, I2<2U 

uG00Q6 

00113 

10* 

DOR - 13 

CO 1 .DII 

ocim 

11* 

RETURN 

OGOOl 3 

cons 

12* 

UiD 0 DOR 

CG0D2^ 


CD 

O 

C/1 


o 

t— • 
00 

0 

1 


suaRouTxr4E: dumppf entry point 000255 


storage usro CODEU) D002 76s OATAIO) 0 do 102: SLANK CONHONlZf 000 oco 


EXTEPNAt RTfERENCES tBLOCK, NAHEI 


0G03 

QDGil 

GOGS 

33Qb 

30C7 

DOia 

OGll 

0012 


RE ADNS 
S TPMOV 
GE TCOO 
KOrSTR 
Nunui 
M02i 
fl I 01 i 
NCPR3S 


STORAGE AESJGNNENT IBtOCK, TYPE , RELATIVE LOCATION. NAME* 


good LOOOTZ lOlF 
3001 ccons 151G 
0000 OODCMO^ bTlF 
□300 V LCCD16 DPAX 
OCOQ I eLC0?2 1 SY>-b 
3300 I OLDCZO HAXMl 


GOOD 000023 UF 
DCOl 3DG153 1620 
aOCl Q002 3R 6*»0L 
OTDO 0 OOOCO*4 OPTNAN 
Or.GD I D0GD15 J 
OP03 0 000006 PFNAME 


DODO 


OQ003S 

UlF 

3001 


D0C142 

200L 

GOOD 


00002b 

65F 

0000 

I 

DODO 10 

1 

□ GOG 

1 

C00021 

K 

□ GOD 

0 

000013 

PI NDCX 


0001 000031 1210 

QDOO Q00Q36 201F 
OaOQ 0 000011 DPtANK 
0000 1 0D0Q02 TOTH 
GC06 T COOOOO KOHSTR 


OCOl CC00%7 1300 
OQGl C00200 G20L 
OOCO D COOOOO Olfl 
OCCO CC00S7 INJPl 
0600 I conoci HAX 


eoiGi 

1* 


SOfciROlfTINE DUKPnrf CHP NTS. ICPH AX, TYPES, A INPUT 1 

COOODS 

00103 



IMPLIGII DOUBLE PRECISION <A " Z1 

C00G05 

0013H 



IMPLICIT INTEGER Cl - N1 

G00G05 

GG105 



nOUPLC PRECISION DPFNAM / *rrNAH£ • / 

000005 

eoios 

5* 

C 

VERSION 1, revised HAY 21 1976 

6O0GOS 

G0105 

6« 

C 

PURPOSE 1 ^.rlP permanent FILE ONTO TAPE 9 IN INPUT FORHAT 

C00D35 

rri35 

7* 

c 

CALL SeoULNCE CMPNTS - COMPONENT NAME LIST 

D0CG05 

6C105 

?.♦ 

G 

rCPMAX “ NUMP£R Of COMPONENTS 

GDGC05 

tCIGS 

9* 

C 

DCPMAX - miHHER OF COMPONENTS COBLE PRCSNl 

GDGGCO 

00 135 

IG» 

C 

TYPES ' HA I A type NAMES 

rCDCOS 

CCIGS 

11* 

C 

AINPUT - NAME ARRAY UDRK STORAGE ARRAY 

3CDG3S 

GDI 05 

12* 

C 

DESIGNED BY J.D. BURROUrHS DEC 1975 

G00005 

^□107 

13* 


DQUBLE PRECISION C KPN IS » 1) , T Y PE S C 3 1 , A INPU T C 11 

B0U035 

rciiQ 

IM* 


UPI1EC9,] 1 } 

C03C0S 

3C112 

If.* 

11 

FGRiMATCNEW rilfM 

rOCGl 2 

CGI 12 

16 « 

c 

LOAD rut NAME 

C0C012 

ECl 13 

17* 


CALL PEAE.MSMfl,PrNAMi* ,1 *nPfI4AMl 

OODGl 2 

CC 1 1 M 

IP* 


VRl TE19,h5}PFNArL 

LL5C2C 

\.CU7 

19* 

65 

FOPKAU T 1 LT name r* ,A 1G) 

cn^ri 1 

00117 

• 

G 

> scan ALl COMPONENTS 

LGCG3 1 

3C 123 

21* 


no 64" ! ' 1 , 1 CPKAX 

C0G03 1 

L 3 1 2 J 

22* 

C 

- — > LOAD COMKONVrU NAME 

CD0C31 

iC173 

2 J + 


nCUEH r PR^ C 1 E ] Of: DIM ;.»:k 

r ^ T j 
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K> 




.1^: ii^rsL- 




J-. 




0012S 

24 ♦ 


PiNnrie=DBtiNK 

DO con 

■ ^ 

CO 126 

25* 


CALL ST RMOV tCMPN TS |1W1»2«PTRDCX*1I 

GD0032 

^ i 

r C 1 26 

26* 

C •- 

*> SCAf4 THBEE T7PCS OF LISTS RFQ-0 FOR EACH COHPONCnT 

G0C332 

' 

UQ127 

27* 


DO 6?0 J-lt3 

C0DC4 7 

1 

DCli2 

2fi* 


CALL SIRHOVITYPCSC J),l ,4»PinDEX,3 » 

C0LO4T 

\ 

acn? 

29» 

C — 

-*> RTAD LISTS FROH FILET 13 

DO 004 7 

1 

0013 3 

. 3D* 


CALL PCAOMS HBtO^Ax, i,pirjnrxi 

C0CC6C 

|i 

GD13<* 

31* 


HAX - tIHAX 

C0LG66 

0 G I 3 S 

32* 


C ALL PL AD F. 5 f 1 0 » A INPUT * H A X , P TN DEX 1 

C0an74 

i 

0C136 

33* 


MAXM l^h'AX -T 

100102 

!■ 

GCl 36 

34 ♦ 

C *' 

— > WRITE INPUT LIST NAmF A NO NUMBER OF INPUTS COUTPUTSI 

C001C2 

L 

■GC137 

35* 


Wfll If ICI KPl NntXrMAXMl 

CCC105 

t: 

00 lU 3 

36* 

101 

rOfvMATCft?,’ - •flMl 

0G0I14 

:ci<4 3 

37* 

C 

-> TLST FOR TA4LF INPUTS 

GOUl 14 

! ' 

DC14^ 

38* 


liM J.EO.3IG0 TO 20 0 

OGGI 14 


001*14 

39* 

c — 

— > INPUT AND OUTPUT LIST TYPES 

cnai 14 

; 

QDH6 

4G* 


I F 1 «A X, G I « 1 1 UP n L 1 9 , 1 1 1 ) i A INPUT < K 1 ,Kr2 ^HAX 1 

GROl 1 7 

! . 
! 

CG155 

41* 

m 

rORMAl.IRA 10.1 

L0014G 

lL 

OQl S6 

4 2* 


60 TO 62[i 

DDO140 


GC 166 

43* 

G — 

“> lArilL INPUT FORHAI 

L0014Q 


uG16T 

44* 

200 

ir IHAX.LF •! IGO TO 620 

r 00142 

“■ 

C0161 

45* 


Do 24 r? K'2,MAX 

G0G145 


00164 

46* 


GALL GC T con 1 5 , A 1 NPU T I K ] , IDIMI 

C00153 


SGI 65 

47* 



CQ016 1 


00165 

46* 

c — 

— > WRITE table: name And max. oihehsion 

G0C161 


IG l 6:6 

49* 


U PI IE 19,201 lA INPUT IKI ,DItt 

CQJ167 


CC172 

5L* 

201 

rORrATtf.3,F 7*c> 

CC3D2D7 


CD 1/3 

51* 

240 

continue 

CCS2C2 

. 

GOITS 

52* 

62 0 

CONTINUf 

CCU2G2 


JCITS 

53* 

C IE ST FOR Srf^GOL NUH6CR 

C0a2D2 


00177 

54* 


If tKOPSTRICMPNTSf T1 ,9,2,DBLANK»1>.E0«0JG0 TO 640 

CD0202 


GDI 77 

55* 

c -* 

— > GET SYMPOL N'UMefP FROM COMPONENT NAME 

G0C2Q2 


00^01 

56* 


CALL 6E TC0T)f5fCMPNTS<l 1,ISYMB1 

C0G2 1 5 


QC?G2 

57* 


WRI 7E T9 ,631 ICMPNTS (I 1 ,TSYMB 

00C224 


0'02a:6 

58* 

631 

FOHKATfSYHnOLt *.A2,* :: *,151 

LPC235 


G02C7 

59* 

640 

CONTlIfUr 

CGC235 


0 021 1 

tF* 


RETURN 

GCG235 


EC212 

6 1* 



DD0275 
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WAIN PROCRAW FI LOAD 

STORACr USFD COOEtU DQ2 3I7: OATAtO) 00206R ? BLANK COMMON 121 OOOOOG 
COHMON BLOCKS 
D Q 03 C 10 OOD DQ 3 * 

EATtRNAt RrrCHtNGCS « BLOCK* NAME I 


O:0iG4 

NXTPM 

0DG5 

LCPPH 

00106 

STPMOV 

0 0C7 

KOMSTR 

OQIO 

PUTCOO 

DOU 

WRTTMS 

GGl? 

NUrCRC 

0313 

ecocun 

0 014 

RE AOMS 

0015 

Gf 7 COD 

0016 

CO MOAT 

3017 

CSORT 

0C2D 

tuyppf 

00 21 

NlNTRS 

0022 

forrs 

0023 

iKRG'lJS 

00 24 

^N1G3S 

00 25 

. M021 

0026 

Nwnus 

30 27 

MOit 

00 30 

NERR2S 

00 31 

OSOFa 

00 32 

NSTOPS 


STORAGE ASSIGNMENT leiOCK, TYPE, RELATIVE LOGATION* NAME) 


ODQl 


GCGC24 

IGOL 

0000 


001233 

IDXF 

GGOl 


00 0064 

13GL 

0001 


C0G722 

I4QL 

0001 


0GG2S2 

146L 

00.01 


00D263 

15 GL 

00 Cl 


GGG315 

IP. GO 

OCOO 


G01266 

iBir 

DO'CI 


OOC324 

2 DDL 

30iDO 


G01310 

21 IF 

oroi 


000404 

2121 

0001 


DflGl2S 

21 5C 

300.1 


cor23a 

24 7 G 

OGGI 


0.0 04 56 

3CQL 

□cot 


0GQ347 

310G 

OOCl 


0004 7 N 

32 01 

0001 


000477 

3 TC L 

DiOfU 


GD05 3S 

33HL 

3001 


CCC616 

3f 01 

GGOQ 


001312 

361 r 

GCIDI 


nars44 

3 66G 

COGl 


000715 

4 32 6 

cr.oi 


OQIO 10 

4 5 3 6 

QCOl 


nGP7n2 

5c:i 

OCOO 


001326 

521F 

GOCl 


001214 

5 3 3 G 

0 001 


00 ID 54 

540L 

G 301 


GD126S 

70 GL 

onoi 


GO 1267 

72 GL 

3 001 


001276 

75 CL 

OOCl 


ODl 314 

9994L 

GOOD 

0 

001217 

A I 

onoo 

0 

QD0343 

A I NPUT 

Q3C0 

0 

DC.1 150 

COM NA M 

CPOG 

0 

C003C4 

DPL ANK 

GOCO 

D 

00C341 

OCMPTS 

3C1E0 

n 

Du PC C 9 

DIM 

lOCOO 

0 

C01226 

DHAX 

ocon 

Q 

D0CLJC7 

DPff/AM 

30 DC 

i) 

001164 

HTAPS 

iCnoG 

I 

0:0 1201 

I 

OCQO 

X 

000CD6 

THINK 

ODCO 

I 

DD123Q 

ICMPl 

DCOO 

D 

000521 

I CO M 

D30Q 

I 

can 56 

1C PM AX 

C003 


coo:o2 

in AG 

GPtrc 

1 

ncrir? 

TfiJH 

c^:in 

1 

nf!l 1 73 

UMJI X 




0001 OODlilS 136L DCOO D0I2 3M 137f 

QCOl D003G«t UQL OtDO G012V4 161F 

OGOl D3G36D 206L QCCl LX0361 21DL 

DDQl 000^33 22GL OCOl CUP174 235G 

QOOl 00a<i71 310L OOCl GG0366 3 17G 

OCDl 0DGSS7 2SCL OOCl CL0S13 353G 

GICCH DnC625 *JCOL CCCl a&CSS3 

0C:O1 001 1 17 5120 GECl CO M *4 1 5170 

otao 001 353 £41*' OQCl L01O71 f.COt 

0.CQ1 001312 999L L-DOl DC 1 3 13 9952L 

occio D conrcD chhnos ccco o hi ill c^^fnis 

GCOO 0 001360 UCMPl CCOO 0 CJUI l rfPMAX 

OCOO D 001160 HIMPT DCCO 0 Cutlf.2 H'MHP 

DCiOQ 1 D0U55 ICMMAX uCCO I Lu 07J1 HMf'Op 

OCCQ I D01154 ICPHOD DCCO I IZ\??S 70 

n:.ri3 t ntr/ur c.'irn i c-.lm:] 
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ocoo 

1 

CQH7«l 

itm 

GG03 

T 

nCQOOl 

lURITE 

OCOT 

1 

G u GtjGG 

KGMSTR 

0000 

I 

001157 

LIST 

OODO 

I 

U0120S 

U 

GDD0 

D 

OG03U 

NAMfS 

QGGG 

I 

00X216 

KT 

0000 

T 

GQ1173 

rtask 

OOGO 

0 

1^0120 3 

PHRS 

0CCO 

D 

001171 

P INDEX 

OGCiG 

D 

001152 

TYPE 

orcc 

D 

000677 

TYPfS 


0 000 

I 

001166 

lie 

0000 

I 

001167 

119 

0000 

I 

0011 75 

LOAD 

0000 

z 

00QD03 

HAX 

aonc 

T 

D01 1 76 

NCOKP 

ocoo 

I 

D0121M 

NX 

0000 

0 

001221 

OUT 

0000 

0 

00Q5G7 

OUTPUT 

GOOD 

0 

OG 1206 

SY ^13 

ocoo 

0 

001223 

TAB 

0000 

0 

001177 

VALUE 






GOOD 

1 

001202 

J 

GOOD 

r 

001213 

PAX con 

0000 

1 

G01215 

HO 

COCO 

D 

001231 

PTNAwr 

OCOO 

D 

CQ06S3 

TABIC 


ocioi 

1* 



IMPLICIT OOUDLE: precision (A - Z1 

CDOOOC 

00 10 3 

?• 



IMPLICIT INTEGER 11, 4, K, L, «• NJ 

Dooroi 

0 C 1 OH 




DOUBLE PRECISION DDLANK / * 

uocoai 

CO 106 



DATA 

TOLNK 

CDCOOl 

CO 110 

5* 


DOUE.Lr PRECISION DPENAM / •PFNAME • f 

COCOOl 

‘jC112 

6* 


f)GUptr pr?c CIS IGN NAMES, ICOM 

CDGOOI 

GDU 3 

7t 


DCuPir PRCCTSION DCHPTS / •CMPNTS • / 

CDCOOl 

coi l i 


C 

PPOnPArt ruOADi INPUT= 10n,0UTPUT = 2 no tl APC5=1NPUT ,T APE6=0UTPUT, 

CGGOOl 

ecu 3 

9» 

C 

1 TAPE 

3,TArC78,TAP!:79,TftP«19> 

rOLGOl 

00 113 

IG# 

c 

VERSION 

3.1 REVISED OCT 13 1976 

acGooi 

CGU'3 

11 ♦ 

c 

PURPOSE 

TNI 3 PROCRAH ADOS 1 NPIM , OU TP UT , AND TABLE NAME LISTS 

OOGGOl 

OClli 

12* 

c 


TO TNC EASY program PERMANENT FILE. 

coconi 

0C113 

1 3* 

c 

TiETHOO 

DATA IS RE^n FROM TAP1T3 AND LOADED INTO THE PERMANENT PILE. 

COCOOl 

00 U 3 

in* 

c 


THE data fORHAT IS FIRST PHRASE -RECORD NAME. 

COOCOl 

0CM3 

U* 

c 


SECOND PHRASE - NO. WORDS IN RECORD 

ODODQl 

ecu 3 

16* 

c 


THE INPUT AND OUTPUT NAME LISTS INPUT 

OOCOOl 

ECH3 

17* 

c 


data is FIXED FTELO WITH 0 (tAlO FORMAT* 

EOCGGl 

00113 

IF* 

e 


THE lAtiLC LIST INPUT DATA IS Al0,G7.0 

COCCQl 

0CI13 

19* 

c 


rPRM Al - 

cncr.oi 

GD113 

20* 

c 


THE NUMERIC INPUT SPECIFIES THE MAXIMUM 

GCDOCl 

C 0 1 1 3 

21 ♦ 

c 


table OTHENSION. NEGATIVE VALUES 

COCOOl 

0DM3 

22* 

e 


INDICATE SINCLC INDEPENDENT VARIABLE 7APLCS. 

0CDCQ 1 

CO 1 : J 

23* 

c 

OESI6NEO 

BY J.D.nURPOUGUS MAY 1974 

CCCDQ 1 

cons 

24 ♦ 


DIM ON 51 ON N /iMFS t 100 1 , rMPtlTS ( 151 ) , AJNPUT (SOI ,XUTPUT (SGI t 

LCCCC 1 

rOH5 

25* 


1 TADLre I 0) , Koiua 1 , T yPESt 3) tCMMNDS C 6J i ICMHOD C151J 

LCGCOl 

001 u 

ZL* 


C0Mr0N/C10/Tl?EAD, I I It 1 10 I AG 

CiDOGOl 

GG.l 17 

2 7 * 


£ ejrl VMC NTE i nCHP j , CMPNTSl 

Gncaoi 

iCl20 

2n* 


OA ( A 

CUKNAM / • / 

CDCDOl 

CG122 

?Q • 


DATA 

TYriiiin / ^iNPT * / 

GOCODl 

D012i< 

30* 


data 

TTPLS(2> / •oUTp * / 

DDCCDl 

00126 

51* 


D^T A 

TTPrsm / MAT^S • / 

CDCCai 

cono 

32* 


data 

CHMNDSM) / 'LIST STAND * / 

cnocoi 

CO 132 

33* 


DATA 

CrtMtins*?) / 'pUfHU • / 

COCOGi 

G 0 1 3 q 

34 * 


DATA 

GM^^KDS(3) / •DUMP rilC • / 

Eocoai 

CCJ36 

35* 


OiAIA 

CP7*LDS(4> / ’SYHHOL • / 

CCCCOl 

LOlUB 

36 * 


DATA 

CMHriDSISI / 'new file ^ / 

COLCDl 

oom? 

37* 


DATA 

CMHNDStGI / TILE NAME * / 

COCGlM 

OC 1 N:H 

3C* 


fjAT A 

TYRL / • • /, ICPMOD / 0 /» IGMMAX / 6 / 

Lcoroi 

cnisG 

39* 


DAT A 

ICPPAX / -1 / 

COCGCl 

00152 

40* 


DATA 

LIST y 0 / 

COCOOl 

CC154 

41 * 


DATA 

HINPT / 'INPl • / 

cncooi 

r0156 

42* 


fIxMA 

UOIJTP / *OUTP • / 

LDGOoi 

60160 

43* 


data 

HI AGS / ‘TABS • / 

CDCDOl 

00162 

M4* 


inrADrS 

crcQoi 

0C163 

45* 


ix^Rirrr6 

COOGC 3 

XQ163 

4i6 * 

c 


OPEN MASS storage FILE 

CCC003 

0G164 

47* 


DEEINr FILE 1 fl ( 2fl 1 0 , 3 D2 ,U , 1 18 » , 19 «2« TO, 3Q2 ,U ,T1 »» 

GO coos 


DOltM 
eoi6fe 
CC167 
r,0172 
D0173 
CQ17.5 
C0J7U 
3C17S 
eO| 75 

::c j/7 7 

:: c ) 7 7 
oc:cD 

Q0Z^^ 

oc:o2 
uoczm 
OC2GM 
CC205 
Cr235 
0020t» 
ODXIO 
co3ia 
DG21 I 
CC21 1 

-Cri2 
QC.:i2 
00214 
E0217 
OC221 
DC221 
0C223 
0Q224 
G0224 
0C725 
CC22S 
00026 
C0227 
00232 
00232 
DC233 
02234 
□ 0234 
C0227 
CC243 
OC24 1 
00242 
Cf 242 
DC244 
0C244 
0C246 
00251 
DC252 
0C254 
G0256 
00256 
CD 257 
CC257 


4V* 
5 2* 
5 1* 
52* 
S3* 
54* 
5S* 
56* 
5 7* 
5 fi* 
50* 
60* 
61 ♦ 
6 ?* 
63* 
64* 
65* 
66 * 
67 * 
6T * 
6V* 

70* 
71* 
?!♦ 
73* 
74* 
75* 
76* 
77* 
70* 
7S* 
flO* 
fll* 
62* 
03* 
64 * 

as* 
66 * 
B7* 
ee* 

89* 
90* 
9 1* 
92* 
93* 
94 ♦ 
9 5* 
96* 
97 + 
98* 
99 ♦ 
ICC* 
JGi* 
10 2 * 
103* 
1 : 4 * 


C - — > ROAD COMMAND CARD 

JDO CONTINUE 

RffrOn, lOl, END r 500, ERR = 9991 ICOH 
101 rORMATtSAlCl 

120 IfDCXrj 

C > LOCATE NEXT PURASE 

call NXTPHCICOM * P^nf X iPlNOCXl 
IFtFMNOrx.CO.OBLANKlGO T0> 100 

C > SfAPCM CO^MANO LIST 

call LCHPH ( PiriOC X ,CMHWO£tiCftM AX, 1 ,NT ask 1 

Q > tr>Af;CH TO 300 If COMMAND IS IDENTIFIEO 

IFUfTASK .NC ,0100 TO 3CD 

C > TfST IF COMPOf^LNT WAMF LIST HAS DEEN READ 

JrCICPMAJC.LT^CJGO TO 40D 

C > OFT LIST TYPE 

130 call STHMOV <PTf4DE X,3t4,TVPCti 1 

C > COPPAr-E Type to z acceptable types 

call ICHFNf tTYPC , lY PC 3, 1,1TYPE1 

C > TEST TF TVP"- L'AS TDCNTIFTEO 

TFriTYf E .Ea,C100 TO 160 
LCJAP-1 

C > on COMPONENT NAME 

call STRMOV tPlNOEX , U2.C0HNAM > 1) 

C OYPASS SEARCH IF COMPONENT COUNT < J 

lFnCPMAY,L7*nC0 70 1 36 

C > SEARCH COMPONENT NAME LIST 

DO 132 NCQMPrl , TCPMAX 

lF(KOHSTn<CMPfnS(7TCOMPJ,l,2,COMNAM,lKEQ.O)(;0 TO 14C 
U2 CONTINUE 
C j NCU COMPONENT 

136 ICPMAX-ICPHAX *1 
NCOMPnCPMAV 

C > ADO OFF AULT SYMBOL NO, r 2001 

CALL PUTC0D<5,C0MNAH,2DCI1 1 

C >. ADD COMPONENT NAMf TO LIST 

CPPNTSf 1 GPMAX I=rcOMNAM 
URI TE TO , 1 37 ICOHNAM 

137 rPRHArt3y,AM,*LMLL VC ADOEO AS A NCM C0MP0NENT»1 

C LOAD NAME ARRAYS WITH DEFAULT VALUES OF 0 NAMES 

VALDfrCOMNAH 
DO 138 1-1,3 

C AON TYPE NAMC TO COHPCNCNT NAME 

CALL STRMOV flYPCSJ l>, 1,4, VALUE, 3> 

NAMES<1 1 ‘i 

CALL URnHSf 18,NAMES, I ,VaLUO 
136 CONTINUr 

C BYPASS SEARCH IF MOniFirO COMPONENT COUNTER r 0 

140 irt icpimijiC o.oJGo to me 

C > TEST TF component HAS BEEN MODIFIEO BEFORE 

DO 144 J -1 ^ ICPMOO 

ir (KO^'S J IM COM NAM, 1 , 2 , CMPNTS ( J ) , 11 »E0 ,0 ) 50 TO 150 
144 CCfM I PUf 
146 ICPMCH»:^1 CPHOD*! 

C - — > ACCUMHLAfE COMP. NOS. OF COMPONEN TS MODIFIED 

I CMMOnt J CPMOd 1 rNCOMP 

C L* T r^f*XT PJtPAfr UHIf ff CONTAINS NO. CF TTFM^ JN LIST 


CGC005 
CG0D24 
CD0C24 
C0GQ3S 
:CLG35 
CCD03S 
GDLC37 
CCC344 
CDbL:44 
EC CUN 7 
r 0CG4 7 
CCuC56 
LCC3S6 
CPE06C 
CDEE6C 
or{in64 
LCCC64 
CCED72 
COG272 
CCDIOI 
20^133 
C0Q103 
CCC105 
CCCIC5 
CCEl 1 4 
CCEl 14 

:ooi2o 

C00127 
cnoi45 
C0C145 
E0C145 
CD014 7 
CC014? 
ECCISC 
COCISO 
fOClSS 
C0C16 1 
LCE16 7 
GCU67 
CGC167 
CODl 74 
UCC174 
:GG176 
cnc?c7 
CCC21 I 
CCD222 
CC0722 
LEL222 
ZCL722 
CCu?22 
000231 
C00233 
COE252 
C0024? 
CGC752 
DDE255 
' P . 


2 S 

-o ^ 

'5- % 

& Si 





BCS 40180-3 




Q02b0 

IDS* 

150 

CALL NXTrHUCOH,lNDrx,PHRSl 



C0C260 

□ □Z60 

IQ6* 

C -- 

-> HXT rOR NUMCPIC FIRST CHARACTER 



C0026C 

oDati 

!07* 


COLL HUKCROPHRS, ^IOC) 



CCG264 


iGfl* 

c -- 

-> cofvvrni HOuoRnu to integer 



uCLi26 4 

orctiS 

• 


CALL rCDOlJQI VALUE tPHUSJ 



t/DC?TG 

D G Jtj 3 

1 1 0 • 


NrV ALUE 



:CL274 


J U» 


GO TO ZZl 



CCG3Ci2 

C C2£>5 

H2* 

160 

unni! t6, i6nPinnry,TYr£ 



CCC.3D4 

OC27I 

113# 

16 1 

F0RMAT(/22K **♦ UARNlNG *♦* IN ,A6,2X«Al0t 


CDw312 

CD271 

U4* 


IMSN’M A RECG6N1ZCD NAME LIST TTPE, NAME 

LIST UILL NOT BE LOADED* 

E0G312 

OC271 



1 1 



CCU31 2 

□ C?72 

1 u. ♦ 


irAP=r 



530312 

GG273 

11 1* 


GO 10 150 



GDDil 5 

OQG7M 

H t* 

JfiO 

j 01 rr J6 1 J p 1 IP HRS 



CP6315 

C0277 

M 9 • 

IRl 

rCRHMr/l6H *♦* WAFINIWG ***,Altl« 



OCJ722 

OU277 

12G* 


IMSN'M A VALID NUHDER OP NAMES FOR NAME LIST 


UQ0J22 

0C2 T7 

121* 


2*l;AMC LIST WILL NOT tiC LOADED " I 



CQC322 


122* 


GO TO IDQ 



CC0322 

co:ci 

12 3* 

200 

NzN* 1 



CC0324 

0G332 

124* 


irtN^ir.i) no to 220 



CnL326 

003uM 

12S* 


irrnpE.i 0. TYPES 13 iiGo to 210 



QCG3 31 

DG3GII 

126 ♦ 

c -- 

— > REf.0 NAHES FROh TAPE! 



OOG531 

003C6 

127* 


Rt AT « 3,1U1 *rRR-999 2 3 ( NAME S It 1 , 1 -2 ,N 1 



CCuTiC 

003i4 

1?E* 

2 08 CDNTir.lIt 



CCG360 

CC315 

129* 


GO TO 220 



EOD360 

- D.3 1 5 

13C* 

c -- 

— > READ TABLE NAMES 



CC036C 

CQ316 

131* 

21 0 

DO 215 I=2»N 



CC0361 

CC221 

132* 


REAOiT,? 1 l,rPR=:9994INAMESMli DIM 



CC617 1 

R D 3 2 b 

133* 

211 

rOR(^A;i A3»D7.Q1 



L0C4D4 

GG326 

134* 

212 

GOflTlMUF 



CUL404 

CO 32 7 

135* 


iniMrpiH 



C00406 

00333 

136* 


c AL L PI] T r OD < 5 ,N A ME S U 1 1 1 0 1 M 1 



DPG4 1 4 

D0331 

137* 

215 

CPNT i*,ur 



C0D430 

D033 3 

un * 

220 

IMN.IT. 1 lN = i 



uOLi4 30 

D0JJ5 

134* 


NAMf S n IrN 



0CU435 

00335 

1 4-* 

C > WfJETC NAHCS ON HASS STORAGE PERMANENT PILE 


506455 

00 33b 

14 1 * 


irri OAD^LO. nCALL WRTTnSna-NAMFS.H tP index » 


C0C44 5 


142* 


GO TO icn 



CGC454 

00343 

14 3* 

C 

— > CCHMANO INTERPRETATION 



C0C4S4 

00 34 1 

14 4* 

300 CONIINUC 



CDC456 

no 342 

1 4 5 * 


GO TO 13 13.3 20, 4 03, 320,7 00,7 50 1,NT ASK 



ED645 6 

00342 

I4f * 

c =. 


NTASK =1 

CaC456 

QC34 3 

147* 

310 

nsT^i 



L0C%7 1 

C0344 

14 r* 


on 10 ion 



CC0472 

00 34 4 

149* 

C = 

=r_rzr=r= PURGE NTASK r: 2 OR 

SYMBOL 

z- NTASK r 4 

CCC472 

0 r 34 5 

15 C* 

320 

TFUCrnAX*LT*C»GO 10 4 DO 



000474 

00345 

Ihl * 

c - 

GE i COMPONENT NAME 



oac:474 

CQ347 

152* 

330 

CALL MXTPH< I C OH , I ND E X ,C OHM AM J 



0DL477 

003^^0 

153* 


If < GOPNAMpCO.OtJLANK JGO TO 100 



000503 

CG35Q 

154* 

c - 

— > LQCiiir NAPE IN COMPONENT NAME LIST 



CCOFOi 

0C352 

155* 


DO 336 NCDMpri.lCPHAX 



C.OCS 1 3 

CC3b5 

156* 


ir iKOPSTR < CHPNtStNCOHP 1 ,l , 2 , C OMN AM , 1 1 .E Q , 

OIGO TO 

33B 

LCOM 5 

00357 

157* 

336 

CONT ITUJf 



CCE532 

DC Jtl 

15B* 


NCDMP- j 



CD0532 

00 362 

159* 


GO TO 360 



CCDS 33 

00363 

160* 

33 8 

irUJT ASK •NE -21G0 TO 3S0 



CCG53S 

0G363 

161 ♦ 

C - 

— > MOVE CQHPONrNT NAMES OVER ONE TO OVERWRITE 

P'URGEn NAME 

LC0535 


BCS 40180-3 177 


CC365 

162^ 


DO 340 I=NCO«Pf ICPW^X 

000537 

0G370 

163 ♦ 

340 

CHPNT5C I }-CMPWTStI*ll 

GQ0546 

t.a37Q 

164^ 

G — 

— > RtOUCiC NO. OF GOKPONtNTS 

000546 

00 372 

ie>5* 


I CP MAX-J CPU AX --I 

0DD5S2 

DO 37 5 

I6 6 • 


GO TO 333 

DO 05 5 5 

r037M 

167* 

35D 

C^Ll NXTiPUnCOH.IMiD'FX.SYUBl 

DCflf. 5 7 

OtJ3 7S 

ifaa* 


CAiLl FGpDUB.tSYHBtSVMBl 

000563 

C0376 

ihHt 


isy^KEirsyftB 

000567 

C0377 

J7C.* 


Call putgod f 5 .cmrnts f ncomp ) ,1syhb > 

00 05 7 $ 

r.OHao 

171* 


iGPHOnzI CPMODv'i 

GDG6D6 

00*4 01 

3 72* 


T CMPOni I CPhOD irricOiMP ■ 

CDG612 

CDN22 

173* 


GO 10 33 J 

00061 4 

DC^i03 

17 4* 

360 

un I T L tG, 36 3 JGOMN=AM 

CO 061 6 

DC436 

1 75 • 

361 

format </33H *•• WARNING *•* GAW“7 IiOEWTIFT ,A4 * 

rDG62 3 

i' c < 1 : e> 

I7t» 


1*AS A STANOARO COMPDNTNT*) 

DDC62 3 

LE4*Q7 

177* 


GO TO 330 

C0D62 3 

IQ HOI 

J 7fi* 

G -• 

— > err C0MPQNCN7 NAHE LIST FROM FTtF 18 

EGD62 3 

00*4 IQ 

17^* 

400 

CALL RCAOMS ( Ift^DCPMAX, 1,0CMPTS> 

C0D625 

CD H n 

160* 


ICPMAX = DC PM AX 

CDD632 

CCNl? 

16 1 ♦ 


GALL OC aCMS 118, CHPNTS ,1 CPHAX, DCHPTS) 

0C0640 

C&^412 

15 2* 

e -■ 

— > SHIFT fiAM'CB OVER 1 WORD TO CLLlMINATC NOp Of WORDS 

DO 4 3 

P04|l 3 

163* 


no 4 2D l::2 , 

CDL 6 4 6 

:.ouib 

16 4 * 

420 

CMPfiTSU -1 )-GHmNT 5 cl > 

G0G6S3 

QQMZO 

I BS ♦ 


I CPKAX-I CPMAX-1 

00066 1 

V.0H21 

1;R6* 


IRMF A5K ►LE pGJGO TO 130 

CD0tO4 

EGH2 3 

IB 7 * 


6 0 10 (130,3 3 0,720, 3 30, 1301 »NT ASK 

CO C 166 7 

C0h25 

18 fi* 

C - 

— > LIST COHPOflENTS HOOIFIlO IF LTSTrl 

C.DD.66 7 

0CM2H 

lao* 

500 

HAXCOP::lCPnOD 

C007f)2 

rCJ*425 

19:* 


IFM 1ST .Nr * JIGO TO 600 

C0D70 3 

C.DM2 5 

391* 

:c -- 

ir NO COMPS, MQDiriro, skip listing 

D007G3 

C O M2 7 

J92* 


irrMAXCOh-LF-DJGO TO. 600 

CD07C6 

CC427 

193* 

e - 

SCAN COMPONENTS SPECIFIED 

CDQ706 

DGM31 

19 4* 


DO 562 T-liHAXCOH 

C0U71G 

CC4 34 

195* 


J-1 

CD071 7 

uGm35 

195* 


J'XGHKOfH 1 J 

CCG721 

C0M3b 

147* 


COrtNAM=CMPNTSTJI 

000725 

CD.MJ7 

1 9 ft * 

520 

CALL rCTCCD (5rCQHNAM,ISYH&| 

C00727 

C04*<0 

199* 


UPI TC (6,521.11 ,eOMNAM,ISYMP 

000734 

C C 4 M 5 

2 u C ♦ 

521 

FOUMAK//* CO'IPONFHT N0.*,13,» NA'HE - *iA?,» SYMBOL NO* = *,13 0007 mS 

i:C4*l5 

231 * 


1/* INPUTS’ ,7X,*0UtPUTS 6 X, ’TABLES *,7 Xt 'DIMENSION •> 

CC0744 

CC445 

?j2* 

C - 

— > Gf T INPUT, OUTPUT, AND table NAMES 

CC0744 

rC44b 

203* 


CALL COKDA r (C0M9 AH, HI NPTtMIfA INPUT 1 

CC0744 

LC447 

2 04 * 


CAL 1 COKDAT (COMMAMtHOUTP ,NO,OUTPUT 1 

C0C752 

DG4 5D 

2 35* 


call com D a I < C OWN A M , }f T A PS , N T , T ABL E ) 

C0076C 

CrC.4^^1 

25t * 


MAX-MAXG (KI .NO.NT, 1 J 

CGC766 

COMbl 

207 * 

C - 

— 7 SCAN lONGEST LIST GF NAMES 

CC0766 

CC4b2 

2ae* 


DO 550 J; J .MAX 

D01C04 

OC4 52 

2G9* 

G — 

— > PLAfJK NAMES 

C01GC4 

00455 

2 1C* 


ATN-DFLANK 

CDlOl 3 

C C H S 6 

211* 


OUT"nr'LANK 

C 0 1 0 1 5 

CG45 7 

21 2* 


TAP.rOl-LA J;K 

CD 1016 

VCUbO 

2 13* 


in r IfLNK 

2D 10 J 7 

CDMtl 

214* 


IF ( J,lC . NI ) A in;: AIN PUT ( J1 

:.Di02 1 

C04 6 3 

21 5 ♦ 


ir ( J*LC . NO) OUT-OUTPUT CJl 

C01G30 

CC465 

21b* 


If ( J.f.7.r]T)60 TO 540 

001037 

:C4b7 

217* 


TAH -TABl E ( J » 

CD I D4 3 


2 f ft* 

C r- 

— ^ Cr 1 TAPiF uimenstcn 

r r 1 r 4 * 



BCS /I0180-3 



219. 


GAIL r.i:Tc:Dn(5^TAn»:o) 



001046 

C 0 N 7 1 


540 

vniTC tbt 54 1 ) AI« ,01JT ,TAB ,ID 



DDIC54 

Cnc<77 

4?l » 

54 1 

FORMAT r 3X , A10,3X , A 10, 3X ,AB,5X »I4 1 



0C1O71 

cctro 

222* 

550 

CCMK.'UC 



CO JG7 1 

t C5u2 

223* 

56G 

CCKT JHur 



GDiDTl 

CCS02 

224* 

C ™ 

> DEGAS MASS STORAGF FltE 



CO 1071 

r‘bCQ2 

22S* 

c 

> JF >!0 COHPOUCHIS fXIST, CAUSE 

ABEND 

TO PREVENT DEGASSING 

0C1C7 J 

D0LO4 

2?b* 

bOG 

COhTlt'UE 



001071 

:{1S35 

2274 


A]>J = -1. 



CC1071 

rUS36 

27P* 


IF< lCPMA5<.Lr .OJ irsbPMAJW) 



ED1C72 

CD^Cb 

229* 

G 

sotM roMPG'Lfins i«to alphabetical o«deb 

CD1072 

rcsio 

23C-4 


CALL C£Ol?r { CHPN TS ^ I rPHAX ) 



CD11D5 

DCLia 

23 1 » 

C — - 

> SCAN ALL CO^^PONCraS 



CGllOS 

com 

2324 


DO 64^'' T- 1 ,TCPMAX 



Gcni 1 

COb] i 

233 * 

c 

> load GOMPOUrMT MAKE 



com 1 

DCiim 

234 


PlUDCy:^DMANK 



L 0 1 1 2 2 

r.fbis 

235* 


CALL STPMOV <CKPfJTS <TJ »1 ,2,PlNDEXtl> 



C01124 

•JC5.1S 

23b 4 

e ---> 

> SCAN THPCf TYPES OF LISTS ReO 

*^D FOB 

EACH COHPONENT 

D0IJ24 

GC516 

237* 


00 640 j:l , 3 



CO 114 1 

C0b2l 

23fe* 


CAUL ST(J!'OV<TVPrst JJ, 1 ,4 ,P INDEX ,3 1 



CO 114. J 

CCIj21 

?39* 

c — 

> READ LISTS FROM riLE 15 



CD1143 

C C!.22 

-24 C 4 


CALL PLADMS.ne,DHAX,lTPrMnCXJ 



CD1IS4 

DG&23 

2414 


max r nKAX 



001162 

DCS2H 

1'4;' * 


CALL PC AOMS U E, Al>JpOTtMAX,PlfJDEXj 



uCllTO 


24 3 ¥ 

c — 

> WPFTE LISTS ONTO FILE J 9 



cc n TO 

13 525 

2-<4 4 


call Vnl TH5 M9 tAINPU 1 ,KAX,riNDEXJ 



u01176 

CD‘j?6 

245 + 

640 

CCNTINUE 



LD1210 

rcs?6 

24 6* 

G 

> SHIFT component NAMES OVER 1 

WORD 


CD1210 

ZDOil 

24 7* 


J = I CP^'AX 



LQI2ie 

CCS52 

24 b* 


DO 660 T " 1 , 3 CPM AX 



CC1214 

0C03S 

r*!?* 


CrPNTr< J*1 l.:rCMPMTS( Jl 



001215 

C3n3b 

25:4 

660 

J; J-1 



coin 7 

DCb36 

4 

C 

> Ann NO, or components ♦ i as 

FIRST 

WORD IN LIST 

CD1217 

00543 

252* 


ncHPi“in'KAX* i 



G01223 

3Cb4 1 

2534 


1 CMP 1 1 C»rHPl 



GD1233 

C [1L.4 1 

254 ♦ 

c 

> STC«E COMPONENT NAME LIST 



CO 12 J 3 

C-CL4 2 

255 4 


call vfa tms n 9, cm p n rs, I CMP i,dckpt si 



601240 


25f ♦ 

c 

STOEE PFNAMt 



CC1240 

rcij4 3 

2tj7 * 


call ri Ai.,MS (IBiPENAKC * 1 ,DPFnAH) 



CG124 6 


25P* 


CALL I'PI 7HS ( 19 pPFNAME , 1 iDPFNlM > 



C012S4 

CC’iHS 

25 9. 


STOP 



GD1262 

O C 5 

26 G * 

C 

-=‘r“= NEW FILE NTASK = 5 



G01262 

rcs4b 

2LI* 

700 

7 CpMAXrC 



GO 126 5 

7 

262* 


60 TO lEj 



0C1265 

CC54 7 

7( Z* 

C =-r 

-i.rrr DUMP FILE NTASK 3 



CD1265 


2f-4 * 

720 

CALL PUMPPF (CHPNTS,ICPMAX,IYPES,AINPUTI 


CD 1267 

Z005 1 

2 bS * 


GO TO JGD 



CD1274 

CGl>5l 

266* 

c -t- 

==r-r-z file «AfC =:- f4TASK = 6 



G01274 

CCE.S2 

2G7* 

750 

CALL NXTFH ( T COM , INDEX ,Prn A HE I 



0C1276 

ro:.S3 

ZhP * 


CALL Vftl IHSne.PFMAMC ,1 rOPFNAMI 



CD11D2 

D0SS4 

76 9 4 


GO TO i:g 



DC 1310 

0Z\.S5 

27C* 

9 99 

GC TO 1 PD 



com 2 

r r *■ c i. 

27U 

9992 

GO 1C 2 



CC1313 

C0557 

272* 

9994 

GO TO 212 



GC1314 

CC5b3 

273* 


END H ***4.444«**t¥4. ¥*****•******* 


**«*« 

□01316 
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SUBROUTINE 6ETC0D ENTRY POINT 000103 


STORAGE USED CODE U I GOOllS; DATAtOI 000021? BIANK GOMKOMCZI CODOOO 


EJtTERNAi REFERENCES IBLOCK* NAME J 

OCC3 SHIFT 
DOOM OANO 
0005 OOP 
QD06 nCHf'L 
0007 NEPR3S 


STORAGE ASSIGNI^ENT th 

cnoi. GCC074 loot 

OQOS . D CO^OOD DOR 

uOOD 0 ::C0Ge2 mask 


K, TYPE t RELATIVE L 

0000 0 CODOOG CODE 
0000 I OOOOCG lA 
0003 0 nooooo shift 


TIONt NAKEI 

aOO<t 0 OOOQOO OANO 
3000 00001 1 INJPS 


0000 0 DOCQOO DBLANK 
0000 T OOOOCH ishift 


0C06 0 000000 OCHPL 
0000 r OCOCOS IUORO 


00 100 

1* 

CGeTCOO 

000002 

00 101 

2* 


SUBROUTINE GETCOO t M , I A RRA Y , JE ODE 1 

GO0D02 

G0103 

z* 


IMPLICIT DOUBLE PRECISION CA - 7i 

C00002 

OBIOH 

*4 9 


IMPLICIT INTEGER tJ - M) 

000002 

coias 

5* 


INTEGER TCOOE 

cocac2 

C013G 

L* 


DOUBLE PPCCISlOW OB' «^NK 

CDC002 

fXJ06 

7* 

c 

PURPOSE RETRIEVE A H OTHIT CODE* vALUC OF CODE MUST BE BETWEEN 

GCC002 

: 0 1 Gil 


c 

2EM7’, STORED 5 CDQCS/UORD, FftOH AN ARRAY OF PARAMETER 

L00EC2 

0G13G 


c 

CODES, this routine IS USED TO REDUCE THE STORAGE REQUIRCf) 

LGDCU2 

c c : 3 6 

10* 

c 

TO STORE THE I/O CODE LISTS FOR EAtll ANALYSIS MODULE. . 

C0CCD2 

EC 106 

llA 

c 

CALL SEOHENCr H LOrAilOM Of CODE IN ARRAY TARRAY (IS CODES/WOROK 

aouco 2 

i:oiC6 

12* 

c 

IARRAY INTEGLR ARRAY WHICH RECJCVES CODE NUMBER. 

f;0CC32 

LG 106 

13* 

c 

I CODE VAlur Of CODE INPUT TO ROUTINE. 

CQ C C G 2 

LQU3 

1*4 ♦ 


OnUBLE ppre TSION SH If T 

Cl3C3G2 

GCUi 

IS* 


OlMtHSlDN I ARRAY 1 M 

00CD02 

lD112 

IL* 


DDUPLf PRfCTSlON MASK / 00003000000000000 777 7U0QQ 

C0DQO2 

CCllM 

17* 


OOUPlE PRECISION CODE 

CQCQ02 

ecus 

le ♦ 


iNTECfR TAT 2 1 

CD0GG2 

JOl 16 



Fouiv/.iENCE tiAui, coon 

CGCn02 

GCl ] 7 

2?* 


lT;UGrH 1 SHIFT 

CC0C02 

CG120 

21* 


iLTfr.rR TvnRD 

CQCC02 

CGI 20 

22* 

c 

OETErillLE ymCH wdro in array contains the NTh code* 

CCCCG2 

CCJ21 

21 * 


iWOPUrfN- 1 1 /S M 

C00LD2 

L C 1 2 ] 

2M * 

c 

DETrr-PrNf the number or hits to shift code to richt host 12 sits. 

C CEC32 

^ci:2 

2* ♦ 


If.HlF I r TNOntfj^J, 5 1 -4 > * 12 

rccni 1 

r 3 12 2 

2e* 

c 

shift com UTS TO RIGHT HAND POSITION, 

LCcr 1 1 

CC123 

27* 


COUf J f T t I ARRAY ( IV0RD1 , isnr FT 1 

DCCCl 7 

LD123 

?B* 

c 

MASK OUT UNvANTEf) PITS TO I.EFI OF CODE. 

LOCCl 7 

C C 1 2 '» 

2*^’ 9 


f r-L.f ^ i 

" r MM 0 


BCS 40180-3 


H 

S 


OOlZS 

30 ♦ 


ICODE = 3 

oG126 

31* 


FtOt 2 ««, 12 ,ICODei = FLDtl2.12»I«l2n 

CQ1?6 

32^ 

c 

TfST SIGN BIT. 

CC127 

33* 


irtTcnor .VT*^a^8l go to ido 

CCU7 

3M* 

e 

BESTfinC 1 BITS FOR NCGdTIVt COOE. 

CGUl 

IS* 


cr.Dr-noR<conE:, ochpumaskm 

GO 132 

3b* 


KGIDC = -1 

G0133 

37* 


riui2*^ti?,iroo!:i r rLTm2,i2,iM2ii 

OOUH 

3fc* 

100 

CONTINUE 

CC 13S 

39* 


RT TURN 

GO 1 3 b 

^ 0 * 




ODC035 

COC03fc 

OOC036 

CCC&4S 

CCoT‘<5 

CdCDbl 

coccez 

DDCOtM 
COOOT** 
gdd:7^ 
aOGl M 




• 
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WBHOUTWl GCTT EWTftY POIMT OOOOSS 

STORaGiE usrn COOtCi l CODOGJ; OATA IOI OOQOIS; BtAUK COMMON (2 1 COa aQO 

rXTXRNAL REFERENCFS CfiLDCK# NAME » 

0D03 Ntf?R3i 


STORADf ASRIGNMrNT CEtOCK, TVPEt RELATIVE tOCATIONv NAME) 


30 Cl 

OCOQ37 

IDOL 

OnCQ D 

CO 00 02 

BLANKS 

OGOG 

□00007 INJPS 

0000 I 000001 IPOS 

OCOO 1 000000 NWOPO 

0000 

0 OCCQ0<t 

SI 

ocqd r 

OC0004 

S2 






aoxoi 

I* 


SUBROGIINC 6ETTCS, I* T) 

GO 000 2 


DO 1:01 

?♦ 

C 


C0G0C2 


QGlOl 

3* 

G 

GETTiS, It T) EXTRACTS THE I*TiH GHARAGTER FROM THE STRING. 

0GGCD2 


3010 1 


C 

STORTO TEN CHARAGTEPS PER D/P MORa. FE6INNING IN UORD 

GGCCe? 


CQLOl 


c 

SfM,'A*m INSERTS IT, LFFT-JliST ITItD , INTO WCRO T 

CQCC32 


0C1Q3 

$♦ 


GOURir PTvEGIsrON SU), T, St 

CGGDC2 


oai-c^i 

7* 


niHENTiaN S2«21 

EOOCa2 


D01O5 



X CGI VALENCE (S1,S2» 

DDCCa2 

fg g 

OGliQb 

9* 

c 


LD6D02 


00105 

IG* 

c 

OXTEPhINE 0*P. word CONTAINING I'TH CHARACTER 

CGDG32 

O e 

00106 

11* 


NwoRn-fx-1 )/ia ♦ 1 

COOGn2 

§ ^ 

QQ 107 

12* 


SI - stNtfonoi 

CCGCJ I 

fo p 

OC 107 

12* 

c 


caaci 1 


:D137 


c 

DXTERMlNf THE RELATIVE POSITION OF 1ST RII OF CHARACTCR 

:gdom 


ooiar 

ibf 

c 

IN MP8, DO'UBLE PRECISION UORC, 

coaci 1 

iZ CT) 

LOUD 

16 * 


IPOS ‘>^00 11 “1,10 * 6 

L’GaCJ 5 


CO 11 3 

ir* 

e 


CGCiDlS 


CPI 10 

IB* 

c 

extract rfiOM SCNUORDl AND INSERT INTO T AF TE R SET TING 

COCO 1 E 


eoiio 

19* 

G 

T TO PLANKS f NO ICE - NO TVPC CONVERSXONI 

OCGOlS 


com 

20* 


OOUR LX PRX CI S I ON PLANKS / ■ 

CCG0Z2 


an 13 

21* 


T = clanks 

CGGG22 


oon<i 

22* 


IF( IPOS*riT. 351G0 TO IGQ 

DDCJ02S' 


CCI16 

21* 


r L D 1 P , 6 , n - F LOT I P 0 S , 6 , S 2 ( 1 I 1 

CPG027 


CDli7 

24* 


RXUIRN 

G00033 


uQl23 

2S* 

IGD 

IPOS - IPOS ^ 36 

000027 


:c 121 

2L* 


FLDfO,6,ll - FLO(IPOS,6,S2I2) » 

C ^C0^ 1 


0C122 

2 7 ♦ 


Rf Tilf>'N 

C0L045 


GD12 J 

2;B* 


END a SaflROU'FlNE GETT 

C0L.tJ62 
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CO 

K> 


FUNCTION ISCAN FNTRY POINT OODD6?, 


STORAGf USFO ccoern 000077; data cor OOOOZ?; DLAMK GONHONCZl DOOOOO 

EXTERKAL RFFCReNGtS CBLOCKf NAME) 

□003 GETT 
300^* NERRJt 


STORAGE assignment CBtOCKt TtPE# RELATIVE tOCATION« NAHE • 

0GD1 D03CIG 106G 0001 000020 112G DGDl 0000*>Q 60 OL 0000 00DQ07 INJPS QDGO 1 CDOOOQ I5CAN 

GQOO I GiQOOGS L ODOO 1 00000 6 M ODGO D 000001 Tl 0000 0 000003 T2 


00101 

!♦ 


FUNCTION ISCAN(S1. Kit NIt W , KZ , «2, »'l 1 

OOOCl c 

00101 

2* 

C 



000010 

ODIQI 

3# 

G 

EACN 

OF THt Nl CUftHACTtRS OF STRING SI, BEGIN- 

CODCIO 

00 101 


C 

NING 

WITH eHftRACirfi POSITION K1 IGOIIMTING 

CDCOlO 

COlOl 

5* 

G 

From 

lEFT TO RIGHT), IS COMPARED WITH TPOSSlfiLTT 

CODDIG 

:o 101 

&♦ 

C 

each 

OF THE NZ cm a RAC IFRS OF STRING S2, BEGIN- 

CCDLIO 

LOlOl 

7* 

c 

NING 

WlTil character KZ. 

lGCC! D 

20101 

$♦ 

G 



CQCOID 

CDIGI 

9* 

C 

ir A 

HATCH IS HADE, THEN Ml RETURNS WITH THE 

CGUOIC 

C-G 10 1 

1C* 

c 

etlAPACUR POSITION XM SI FOR WNlCH A COiORfS- 

DOCDl 0 

:G131 

11* 

G 

pep" 

IPG CHARACTCR WAS FOlJtm IN S2* H2, THE VALUE OF 

CDCOlO 

OCUCl 

IZ* 

c 

Vr 

'llNCilOM ISCAN, IS RETURUrO CONTAINING THf 

DCDCl 0 

cDiai 

13* 

c 

oJirON IN SIR I fir. S 2 or rut MATCMEP niARAGTER- 

LGCDl D 

CD 101 

1*^ » 

c 



CCLQIU 

^ClCl 

K* 

G 

ir NO HATCH IS HAOC, THEN BoTU Pi AND f!2 ARE 

COLl'lC 

OGlOi 

16* 

c 

STT 

in ?ERO 

CDC01C 

EC 101 

1 7* 

c 



LOCQIC 

CD 101 

IR* 

c 

£X. 

GIVEN STRING SI CONIAINIHG 60 GHARACTER5 HO WORDSI* 

LDLGIO 

coiQi 

19* 

G 


TO rXNO, THE BEGINNING OF A REAL OR INTEGER 

COCOl 0 

CO 101 

2D* 

c 


CONSTANT EHBEDOEO IN STRING SI 

COQDID 

COICI 

21* 

G 



EOCDl C 

CCIOI 

22* 

e 

LET 

5? BE THE STRING ' ♦ - . Q 1 23 RS 67 89 • 

CDDCl C 

CD 101 

21* 

c 



GDCCl C 

coiai 

Z*4* 

c 

THEN 

t W.R1TE 

GOCQl C 

CO 101 

26* 

c 



CDLDIQ 

COlOl 

2L* 

c 


H2 = ISCANCSl, 1, 60, S2 1, 13, fill 

DCDDl C 

CCIDI 

27* 

e 



COLD ID 

105 

2r* 


OOUCLE PlfCCTSlOH SI CD* S2 1 U 

CDLCl C 

0012*4 

29* 


OOUPLT PRECISION Tl, T2 

tCCDlC 

OOiCM 

5C* 

c 



rocci G 

no 1C5 

3 !♦ 


no BOO L = K u Nl 

LOCOIC 

00110 

52* 


CALL 

GET! 1ST, L, in 

LDCSIO 

rom 

33* 


no 6 

CD H = K2, NZ 

:‘T. 


f 

) 

) 


Q0U4 

3^* 



c*LL Cf:nes2* h» T2) 

GQll^ 

35* 

C 


prPLACE •KOHPAR* 

OCXltt 

36* 

c 


CJtLL KOj-PARfTt. T2t 11 

uoim 

37* 

c 


jr < I .to, G) Ml r L 

ocim 

3e* 

c 


-IF <T .to. D I SCAN = 1 

octu 

39* 

c 


ir U .to* Cl RtTURN 

COU5 

qo* 



IF m.Nt,T2)GQ TO 600 

CC117 

M 1 * 



Ml = L 

CC120 

42* 



II-CiSN ' M 

CC12 1 

43* 



Rf 7 ur>ti 

(.0122 

4 4 * 


SCO 

CONI 1 NUL 

DOiZ^ 

41 * 


SCO 

COM 3NUt 

3012U 

4 6* 

c 



I'OlSfa 

4 1* 



Ml = 0 

CD127 

4P, * 



ISCAN r 0 

OGJ 30 

4 7* 



RflUftN 

GO 131 

SC* 



tND 3 SU3P0UTTHE 1 SCAN 


C00G2C 
CCCC2D 
C 0002 Q 
C3D02Q 
CiQaQ2 C 
CDCC2C 
QGCOZS 
COCC33 
CDC-DJ2 
f 

CCLt.H 3 
LD0C4 3 
COUO*4 3 
DGQDM 3 
LDC^CMt* 
COLCM 5 
C00C76 
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FUNCTION KOKSTff fNTRY POINT DOOOSl 


STORlGe USFD COPE Ml DD0D66; DATA TO) ODOOl*!; BLANK CONHONfZl COO GOD 

cx tcrnial references t block, name I 

0003 STPNOV 
GOD*i NLPR3S 


STORAGE ASSlGNHCfT TBIOCK, TYPE, RELATIVE LOCATION, NAME) 

OGGI C0G015 2D0L OGOl GQ0Q37 300L 0000 OOOOlO INJPS 0000 I 000001 II 0000 I 000003 12 

□ □GO I DGODOOi KOMSTR OCOO 0 DODO 0 1 T 1 DODD D 000003 T2 


COlOl 

I* 


FUNCTION KOHSTRISl, Kl, N, S2 , K21 

OCODDE 

CO 101 

?• 

C 


COODOO 

rcioi 

3* 

C 

EACH OF THE N1 CHARACTERS OF STRING Sli BEGIN- 

CODODO 

;:cioi 

H* 

c 

NING WITH CHARACTER POSITION Kl (COUNTING 

GO DOT G 

OGJOl 

S* 

c 

FROH LEFT 70 RIeHT 1 , IS COUPAREO WITH (POSSiBLYl 

cOCCOG 

CO 101 

fc* 

c 

EACH or THE N2 CHARACTERS Of STRING S2, BEGIN- 

CGCuOO 

00101 

7* 

c 

NING WITH GKARAGTER K2* 

COGODC 

0 C 101 

6» 

c 


Loconc 

OClOl 

9f 

c 

SET 

LOCOOC 

CO 101 

lu* 

c 

I = KOttSTRTSI, Kl, N, S2 , K2 1 

OCDLOa 

GOlOl 

11* 

c 


coccoa 

noici 

12# 

c 

IF SI :: S2, THEN 1 = D 

LCCOQC 

:)ci3i 

13* 

e 

rr SI ’<• S2, THEN 1 = -1 

LGOnOC 

:ciDi 

m* 

c 

IF S! *>■ S2, THEN I ^ 1 

COLvlOD 

ODIDI 

15 0 

c 


CODDDD 

t-DlOl 

lEi0 

c 


LOGQOG 

0C1G3 

17* 


DOUBLE PRECISION 5 1 S2 

CDCOOO 

nuxoM 



OCUPLE PRECISION Tl,T2 

COGCDD 

GG1Q5 

190 


EOUIVAICNGE fTl,II ) ,(T2,I2> 

cooono 

ICIGS 

2J* 

G 


cncroD 

CC106 

210 


T1 = G.ODO 

ODLtDO 0 

101C7 

22 0 


T2 = D.CPO 

lcccoi 

LO U a 

2!i^ 


CALL STRMOVCSl,Kl,NtTl,l» 

OOOOD3 

GDI 11 

2M0 


CALL STRMOV (S2,K2.N,T2, 1 » 

C00012 

GC112 

2S0 


ir m - 12 iioQ,2nG,iCD 

C0CC2 1 

cons 

2G0 

lOD 

KONSTP = “1 

C0CP25 

c?out> 

270 


RF T URN 

COL027 

rcu? 

?P0 

200 

KGMSTR = 0 

CD0P3 3 

l: 120 

29 0 


R.nUPN 

0C0O33 

00121 

300 

300 

KO^^STR ‘1 

LCLC3 7 

C0122 

3l0 


RETURN 

LDL040 

C Cl 1 2 3 

32 0 


END ti FUNCTION KOHSTR 

CD0CS5 



ccr 

O 

07 


4^ 

O 

00 

0 

1 

u> 


SUBROUTINE LCHRH 


ENTRr POINT 000DT6 


STORAGE USED CODEdl OOOnSS DATACO) D00013: BLANK COKrtONC2> OOODOO 

CXTERiat RtrCRENCES CBIOCK* NAME) 

OOai NEPR3S 


STORAGE ASSIGNMENT I BLOCK » TYPE, RELATIVE LOCATION* NAME) 

QQQl GCC0^»1 ICOL 0001 DD0Q52 ZmV GOOD D OQOQOQ DBLANK 


ODOO OOG0O3 IKJP* 


OCOO I 000002 LOGS 


00 

Ui 


CClOl 

1 * 


SUBROUTINE LCHPHr I PMRS , ICOHL , 1 CLHA X , ICLMI N,l. CIK > 

CCC002 

D0103 



IMPLICIT DOUBLE PRECISION (A - 21 

CQC002 

001C<< 

3* 


IHPUCI T INTEGER CJ - Nl 

C0DD02 

OCIQS 

H* 


OOUPLE PRECISION DBLANK 

C00C02 

00 1ST 

S* 


INTEGER ICLrtAX, ICLHIN 

C00DO2 

CPIG7 

6* 

C 

PURPOSE LOCATE PHRASE IK STRING Of COMMAND PHAA5ES 

C00CO2 

OQIOT 

7* 

G 

CALL SEQUENCE 2P1RS - PHRftSC TO BE lOENTiriCC 

C0CC02 

r.ClGT 

B* 

C 

ICOML * LIST or COMMAND PHRASES 

C 0 C Li Q 2 

CC1Q7 


C 

2CLMAX ^ MAX* NO. OF COMMAND PHRASES TO SEARCH 

L*0QCQ2 

f D107 

IC^ 

c 

ICIMTN - MIN. WQ- or command PHRASES TO SEARCH 

C0G302 

CCIOT 

n* 

c 

LOH - location or IPHPS IN ICOML 

C0CC32 

GQIQT 

12* 

c 

(LDK =: C IF PHRASE NOT FOUND) 

C00CC2 

OCiDT 

13* 

c 

NOTE •LOC* 2$ A UNTVAC rUNCllON, IfEUGE *LOK*. 

CDD0C2 

1C107 


c 

OESIC-NEO BY J.O- BURPOlJGTiS OCl 1973 

□OuCO? 

OGllD 

IS* 


DIMENSION Trn;vu i ICLMAX » 

CQLCG2 

uCll 1 

It * 


ir < 1 CLHIN.lt. 1 ) ICLMlN-l 

C0DCQ2 

□ 0133 

2 7* 


iri 1CLHAX.LT. ICL'll N )1 CLHAX=ICLHIN 

DDDOl 0 

LCn 3 

le* 

c 

r ASSURE THAT SEARCH STARTS BETWEEN ICLHIN AND ICLHAX 

COCCI Q 

001 is 

1 


ir ILOK.L T. 1 CLHl N.ni! .LOK .or . ICLhAX JLOK^ICLHIN 

liCDQl C 

cons 

20* 

c 


DOLQl S 

con? 

23* 


LOCS-LOK 

DC CD 3 6 

CC120 

22* 

1130 If 1 IPMRS.N'F .ICGML (LOK M GO TO 300 

rDCC4 1 

uC122 

23* 


RE turn 

LCCD4b 

CD123 

24 ♦ 

3DQ l.f KzLClK *1 

cncc62 

IC12Z 

rs* 

C 

RCTijRN TO START 7F '.AST COMMAND PHRASE IS REACHED 

C0CCS2 

CO 12 >4 

26* 


ir tl OK.OT .ICLHAX ) L 0H::1 CLM IN 

CGLCS4 

0C12M 

27* 

c 


DCbCS4 

ocuo 

2a* 


If CLOK.Nl .LOCSI GO TO 100 

CCLC62 

EClia 

2V* 


LOK=D 

CCOCbS 

0 •: ij 1 

JT'* 


RnURN 

CCC066 

OC132 

31 ♦ 


LL'D ^ #**4******«***4*«^#4^*#*****4**««******* 

:.0C1 32 
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CKTRy POTJJT OCOlil 


FUMCTION >jrOOE 


STOR/iCC USED COnEU) COC 1 M2 ; D A T fl f D 1 nOOD3S; BLANK COHMONr2l OOOCGO 


EXTCRNAL Rr.rERENCES (BLOCK, NAME > 

0D03 KO*^STR 
ODOM 1 SCAN 
ODOB NLRR3S 


storage ASSlONHtNT (GLOCK, TVPE^ RELATIVE LOCATION^ NAMCJ 


3U01 OCDl 12 

iroL 

GCCI 

0001 17 

20QL 

0000 

D 

DaOQQl 

AL PHA 

0000 

0 

000013 

CHP 

GCOO 

I 

000015 

I 

□nOQ L 00031 

INJPS 

0C04 

I OCOQCQ 

I SC AN 

OOOG 

t 

000017 

J 

0000 

1 

000020 

X 

QUC3 

1 

cooooo 

xoxsio 

GOOD I OQCOlb 

Ml 

oroD 

I oaoDoo 

NCODE 

DODO 

n 

DODol 1 

PFN 










LiGlOi 

1 ♦ 


rUNCTlOIJ NCGOE* CODE 7 

CD COCO 

DD103 

?♦ 


GOUPLf PRECISION CODE, ALP MA t 1 , PFn . CMP 

QOOCOQ 

G0104 

3* 


DATA AIPNA / •AOGDEFOKIJ KLMNOPORST 

G06QG C 

DC1C«^ 

4* 


1 ♦UVyXV2ai23 <<56TB9 V 

GCOGOD 

C0106 

5* 


data PfN/*PrNAHE VfCMP/ •CHPNTS * 

DOCCOD 

'30 36 

04 

C 


CCGOCO 

00136 

74 

C 

usT ron CMPNTS 

COCCOO 

3G11 1 

64 


irtKOMSTRt CHP,1 »6,C0DE,n .EO^D) GO TO |00 

GCCOCC 

CC 1 J 1 

9t 

c 


LCGDCQ 

com 

JC + 

c 

TEST FOR PFNAMF 

GDCCGO 

DC 11 3 

m 


IF(KO»^STR f PEN, 1 f 6 , CODE . n-EQ.. or 60 TO 2D0 

cncci 0 

or 113 

!?♦ 

c 


COGOlO 

OCl 13 


c 

GET riRST CHARACTER 1,LE,I.LE.26 

DOGCIO 

cans 



1 “ I S CAN (con E , 1,1 ,.ALPHA , 1 ,20, MI) 

GDG021 

cons 

1S + 

c 


GCC02 1 

com 

1 6t 

c 

GET SECOND CHARACTER nLE.J.LE*30 

3QtiL2 1 

CO 1 1 6 

17* 


J- ISCANUODE »2,1 tAEPHA ,1 ,30, Ml I 

□03033 

f 0116 

IV* 

c 


cnco53 

CC1I6 

19 + 

c 

DETAULT IS nNPT’ 

G0GO33 

con 7 

2t* 


K = 1 

CCr05 5 

LCU V 

zn 

c 


COCG*<S 

r;oii7 

?2 + 

c 

TEST FOR 0 •OUTP’* 

CDC0N5 

r0123 

23« 


1 r.t K OHS H? r C OOE , 3 , 1 , AL PH A , 1 5 1 • EO . D 1 K =2 

COCP47 

3C12Q 

2(\* 

c 


GCCC^7 

; :q 120 

25 + 

c 

TEST FOR T •TAPS* 

QGCG4 7 

30 122 

264 


irtKOMSTR<eODE,3,l ,ALPHA,20).CQ,.01 K:t3 

G0CG62 

CC 122 

27 + 

c 


C0C062 

Q0124 

2t\ + 


NCOOEr K*fl-1)*3 + (J-ll*78 

CCGD7B 

00125 

29^ 


RETURN 

C0G1G6 

C0IZ6 

334 


ICO NrOPC-2«(J9 

GDCH2 

C0127 

31 + 


RETURN 

DDDtl3 
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001 3D 

32* 

20D NCOnC=2810 

000U7 

OOlil 

3 3* 

BrTURN 

uQ^XZQ 

CQ122 

ZH* 

CMO a OTIt 

0001^ 1 


lOB BGS 40180-3 



SUflPOUlINr NUtSfPG tNTRY POINT OOOOJ*I 


SrORAGt USTO COOCtll C00042; OATACDl 000014; BLANK C0HH0Nt2t OOOQCO 


CKTtP'NAL RrrtRCNCCS CBLOCK* ?4*«E J 

Q003 ISCAM 
QQOH KEPRtli 
0GG5 1JLRR34 


STORA Gt ASSIGNHLNf CBLOCl^t TYPE^ RELATIVE L0CATI0N« NAkE I 

aooo I CCD 004 I onoo OOOOIO INJPS 0003 T OOQOOq iscan oooo t ooooos hi ocoo d qooodo hum 


acjoi 

!♦ 


SUBROUTINE NUHEflCTPHRS, SI 

00 OCOO 

00103 

Z* 


IKPLICIT DOUBLE PRECISION l« - 21 

OOCCOQ 

E0104 

3* 


INPLICIT INTEGER M - HI 

uooooo 

00104 

44 

G 

PURPOSE TO DETECT WHEN THE LEFT HOST CHARACTER IN A STRING 

COCCQE 

OOIQH 

5* 

C 

IS NUKEOIC 

CODOOC 

QD104 

ft* 

G 

CALL SEOUENCE PHRS - STRING OF CHARACTERS 

000000 

0G1D4 

7* 

C 

RETURMStAI - RETURN TAKEN IF CHjtRACTEii IS NOT NUMERIC 

COJOCC 

0G1Q5 

B* 


DIMENSION NUM42I 

COOGOO 

aClGi6 

9* 


OCirBLE PRECISION NUM /M2345ft7B90 *, ••-* 

DO ocoo 

CG1G6 

1C* 

c 

— > conPAnE rinsT chapactcr to numerics 

CCLOOD 

LCllO 

1 1* 


I-I SCAHC PIfRS, 1, IpNUM, 

OOODOO 

CG 11 1 

12* 


IMX.LE.DI RETURN 2 

COOOl 1 

00113 

1 3* 


RETURN 

CD0G20 

00 im 

14* 



C00C4 1 


rj D t j o o 


BGS 40180-3 



SUfif^OUim riXTPH CNTRY POll^T 0002&S 


STOPACT UStD COOEfn C00313; 0*7*i0> 0000«iT; 6LXNK COHHOMI2> 000000 
COMMON BLOCKS 
0003 CIO 000003 


tXTERNAt RtrERFNCES t SLOCK t NAME* 

3cr«4 Ctrl 
onos STPMOV 

0006 NUniii 
3 a 07 W1021 

DO ID N£PR3t 


STORAGE ASSJGNMEMT fftlOCK, TYPE, RELATIVE LOC'aTION, NAMEl 

0001 0C002i 1320 CGOl OODin 1550 ODOl 000063 20CL OOCO 00002^ ZSIF OCOl OQOIOT 30DL 

0001 000157 35DL OODl 000166 <iDDt 0001 00G173 <i9'dL OQDl 00D177 500L 0001 C002C2 51CL 

DOOl CCD212 600L QOGl 000224 70CL 0000 DD0O31 flOlf OOOO O 000006 COMMA OOCO D CO0Q0<i DSLAnK 

DDCO 0 LOODIO EOUALS DODO J OGOQJO 1 DODD D 00D0C2 leLNK 0000 I O0C017 ICMAXC 0CO3 I CUnO02 101 AC 

Q*^GQ J CCCD22 ZNOtNK CDDD OOGOMO 7NJP5 DDOD 1 DQDD16 IPMAXC 0003 000000 IKCAO OCDD 1 CC0021 ISTlRT 

OOGQ I 0DD023 JSTOP OCOT I OOGODl lUiaTE GODO 0 DDDDOO MAR 0003 0 000012 LTTPAR OOCO 0 C00014 RGTPAR 




BCS 40180-3 


s 


C0127 

23* 

C -- 

lOCftTfT riRST NON-PGAWK, NON-Ott I M I TtR CHARACltR 

000005 

03131 

2 4* 

150 

00 ZOO 1=INGCX,ICWA3CC 


00CC14 

001 34 

2S* 


CALL GCTT(IC0M»1,KAR) 


GOOD?! 

0013S 

26» 


If (KAf7 COMMA *017* HAR *C0* EQUALS >0f7* 


C0DD26 

QC13S 

27* 


I KAH .CO. LFTPAR ,0R. KAR .EQ. RGTPARI GO TO 

2 00 

DQCOZb 

OD13 7 

2ft* 


ITIKAP.nE .IBLNK > GO TO 300 


DOUGS? 

CD141 

29* 

200 

contikuc 


CCCG64 

SCi43 

3i.* 


I f,‘OrXrl CMAXC 


GO C 06 4 

OGlH'4 

31* 


in 1DIA6 -cr * I CO - e c i uk he , 2 si ii ndex • itmr s 


00 JD66 

’JC 151 

32* 

251 

FORMATt l4HrJXTPHHZ lNOCX-,13,1 X,AlO) 


CQCl 0 3 

GO 151 

33* 

C — 

rcturn ume« rest of string is empty 


COE 10 3 

CC1S2 

34* 


RETURN 


C001Q3 

CC152 

31>* 

C 

1 OCA ir NEXT GELIMTTCR TEND Of PHRASE t 


CCC103 

00 15 3 

3t* 

300 

1ST AR7-T 


0OL107 

^30 154 

37* 


00 400 I -IS7AH7 , ICMAXC 


caciio 

‘.ClbT 

38* 


CALL or n < iroM, I ,k arj 


OCDl 14 

00 160 

3*?* 


jr IKAR .FQ. COMiA .OR* KAR *E0* EQUALS .OR* 


00G12 1 

CD 160 

4C* 


1 HAR .EQ. LFTPAR .OR. KA'R .EQ. RGTPARI 60 TO 

4 90 

00012 1 

3C162 

41* 


IflHAR.tO.iaLNK 1 GO TO 350 


0DC15 1 

G0164 

42* 


imtv¥~n 


CCC|5H 

0C165 

43* 


CO 10 4DD 


00CI5S 

cri66 

44* 

350 

IFlirJ!»LNK.CE.2 1 GO TO 500 


000157 

iiDl?0 

4 5* 


lNtvLNK=mRLNH*l 


DDUU2 

30171 

46* 

400 

continuc 


000167 

C0173 

47* 


1 NOr XrlcMAXC 


CDC167 

001 74 

4B* 


CO 70 60& 


ODC 1 7 1 

:ci75 

4 9 * 

490 

TSTO.Pri-J 


000173 

CD 176 

5C* 


60 TO 510 


CCM 75 

CO 177 

51* 

500 

1S7DPIJ-3 


0CG177 

DDPOa 

52* 

51 0 

INOEX-J 


0OC2G2 

ODGDO 

53* 

G - 

TEST TO LTMIT PHRASE TO <“ 10 CHARACTERS 


000202 

CD201 

54* 


iFUSlOP-ISTART + l.LE.IPMAxCt CO TO TOO 


0OC2O3 

□ D2D3 

55* 

60D 

1 STOPrI 57 AR7tJPHAXC-l 


rnozi 2 

002G3 

S6* 

C - 

TEST 70 PRC VENT PHRASE FROM GOING BEYOUNO 

COL. BO 

CDOZl 2 

DD2D4 

SI* 


I F M S TO F‘ . G 7 , 1 C H A X C J I S T OP r 1 GM A X C 


GDC21 5 

0D2 06 

58* 

7D3 

lNtU.NKrISTOP-ISTAnT*l 


DOC-224 

DG206 

59* 

C - 

LOAD PHRASE 


CCL22H 

CCCD7 

60* 


CALL STRhDV ncOP,7START,lNiHLNK*IPMRS,n 


CDE22 7 

GD2ia. 

61 ♦ 


IF (HITAG .GE . I QO. »Uni Tf (IVRITE iflOl UNOEX ,1PHRS 


C00236 

GC215 

62* 

aoi 

FCRMAH 1 3MNX7PHR J N HE X - . 1 3 * IX , A 1 6 1 


C0L2S 3 

Q0216 

63* 


RTTUllH 


COL255 

00217 

64* 




000312 






U3 

O 

u> 


-pi 

o 


eo 

o 


I 

CO 




SunPOUTlNt PUTCOD 


tWlRY POINT 000106 


storage: USED CODEin 000111; OATACQJ 0G003G; BLANK GOHHOfHZ) ODOGQO 
EXTERNAL REFERENCES tBlOCK* NAHE I 


0003 

DANO 

00 C*! 

noR 

GODS 

DC-PL 

0006 

SHTf T 

03.07 

NLPR3* 


STOWAGE ASSIGNiNENT CBtOCK, TYPE. RELATIVE LOCATION, NAhEI 


3G0G D OQnCG2 B77T7 
03 CO; 0 GOOD IQ El 
QDQa 1 DGOCOT ISHIFT 


aCQ3 D 000000 DAND 
OOBC 0 000012 E2 
orco I QQOQ06 IWORD 


0000 D .000000 DBLANK 
□ 000 I QOOOm lA 
ODOO 0 OOOOO^i HASK 


0006 D OOOQOO OCHPL 
0000 0 OOOCIN ICOO 
0006 D QOOODO SHIFT 


OCQA D GO CO 00 POP 
ooao CG0017 INJPt 


301OQ 

1 * 

GPUTCOO 

000002 

CGIDI 

?♦ 


SUOROUTINC PUTC0D(N,I /RRaV, ICOOE f 

000002 

3D 103 

3* 


IMPLICIT DOUBLE PRECISiDK lA - il 

DO0C02 

GG13*4 

^ * 


IMPLICIT I'NTEOER 11 - N1 

000302 

301DS 



DOUBLE PRECISION tlTLANK 

C0C002 

CD1D7 

6* 


DOUBLE precision DAMD, DOR, DCHPt 

GCC0O2 

GO 107 

7* 

c 

purpose place a *1 0I61I CODE, VALUE OF CODE MUST BE BETWEEN 

000002 

CD 10 7 

ft* 

c 

2Ci|7*. STORED S COOCS/UDRO* rROH AN ARRAY OF PARAMETER 

000002 

G0 1G7 

9 + 

c 

cooes. THIS ROUTINE IS USED TO REDUCE THE STORAGE REOUIPEO 

CD0C,l]2 

ccior 

10* 

c 

TO SHVR£ the I/O Cfl'Dr LISTS FOR EACH ANALYSIS MODULE, 

C0CO02 

00137 

11* 

c 

CALL SEQUENCE N LOCATION OF CORE IN ARRAY lARRAY C5 CODES /MOROI . 

LDCG02 

:"01C7 

12* 

c 

lARRAY IHirGEfl ARRAY UTMCH RECIEVES CODE NUHBER, 

6CCDQ2 

CG1D7 

i:* 

c 

Tcour VALUE Of CODE J-nPUT TO ROUTINE. 

C0C002 

COUQ 

m* 


DOUBLE PRECISION SHIFT 

000002 

-1011 1 

15* 


O'GU B L r PRECIS I OT 1 1 A R R A V ( 1 I 

0DLC02 

00112 

16A 


D'OUiPLE PRECISION 07777 / Oi00DOOQD!DOQOQODOD77 770030 

GD0002 

00 n M 

17* 


DOUBLE PRECISION ICOD.IIASK 

D00C02 

GC115 

le* 


INTECrR lATjI 

0CC.')0 2 

DDU6 

19* 


EOUIVALENCE HATH, ICOP) 

CDGCl)2 

ecu 7 

2: ♦ 


lAI I » = G 

CD GOO 2 

EDI 23 

21* 


FLDi i?,i2,iAtzn = FLO < ,12, lennF 1 

tlDOCO J 

GO 1 2 1 

22* 


mask r B777T 

ocori 3 

10121 

23* 

c 

DETCRHlnr WHICH WORD IN ARRAY IS TO PE HODIFIEO. 

CDDOl 3 

G0122 

2^* 


Tworn-TN-1 » /s>i 

OQCOl 5 

eel 22 

25* 

€ 

DETERMTNI mo. of bits to SHIFT CODE TO LEFT. 

L3LCI 5 

CO 12 3 

26* 


ISHiri : <<( - MODTN-I, S>) ♦ 12 

CCG324 

DO 12 3 

27* 

c 

SHIFT cont • MASK TO PROPER BIT LOCATION IN WORD. 

creesM 

aU\2H 

26* 


icon:sHTFT( Tcon,i shift ) 

LOCD34 

COI25 

29* 


MASKrSlI IF T ('-7 77 7, ISin ET T 

t.r f.rm 2 


I9i BCS 40180-3 



G0I25 30* C PLACE CODE BITS INTO CORRECT LOCATTOM 7U UoRD OF lARRAT* D000<*2 
JC126 3J» El * flAKOf JARPATCIWOROJ » DCHPLCHASKll CDDDmT 
CG127 Z7,* E? - DANDCICOO, MASK) bDCG63 
CG1J3 lAORAYMWCRDl - DORIC!. C2J ODCC7C 
e0131 RETIJRW CDD07S 
CC1132 ZS* EMD « COGUO 




BCS 40180-3 


SUBROUTINE RUTT CNiTRT POINT 000067 


ST0R4CC USED COOCtll 000073: DATAtOI ODOOIS; BLANK C0KK0NC21 000000 

CXHR'NAL REFCRENCCS (BLOCK, NAKC i 
0003 KLPP31 

STORAOF ASSJiGNKCNT (BLOCK, TYPE, BCLATIVC LOCAUON, NAKC1 

0001 000040 lOOL 0001 COODS3 20oL 0000 DOOOOS INJPS 0000 1 000001 IROS 0000 I 000000 NHORO 

0000 ID 'IsCELaZ SI 0000 R DQ0QQ2 S2 


roioi 

!♦ 


SUaROtJTTNE FUTTIS, It T| 

00 COO 2 

COIDI 

2* 

G 


C00002 

DO: 101 

3* 

C 

PUTTlSt I* Tl EXTRACTS THE LEFTMOST CHARACTER 

000002 

CDXGl 


G 

rPOH ,THE OOljBLE PRECISION NORO T, AND INSERTS XT INTO 

G0C002 

C01,Q1 

5* 

C 

THt I’TM POSITION OF DOUBLE PRECISION STRING S, 

000DC2 

L0131 

0* 

C 

BEGINNING NTTH SCll. 

CGC032 

3C1D3 

?♦ 


POUFLF PRECISION SCl), T» SI 

C0LC02 

CCIC^ 

£* 


DIME NS JON 57121 

CDG002 

GDID5 



EQOlV/'LrNCF (51 >S2I 

COiLqoZ 

Doiaa 

1-* 

C 


CCCUD2 

QD105 

11 • 

C 

orteRPiNE WORD containing i*th character 

006002 

C01Q6 

!::♦ 


NW0ft1) = C 1 “1 1 / l 0 ♦ 1 

r:cuco2 

CG1D7 

!?.♦ 


SI = STNUORPI 

COCOl 1 

G01Q7 

1<I» 

C 


DGGLl 1 

C Q1D7 

1£* 

C 

OrTCRKlNiE RCLATiVE position or character in yORO 

DOCDl 1 

COHO 

IL# 


IPQS-POOM-Inoi ♦ 5 

C00C15 

C G 11 1 

17* 


irMP0S.6T*35l&0 TO 100 

CQQC22 

GO in 

la* 

C 


CCCQ22 

GClll 

19 ♦ 

C 

extract tEFTHOST CHARACTER FROM 0/P UGRD T AND 

CODQ22 

10111 

?C * 

e 

insirt it into string s 

L0U022 

GDI 13 

2\* 


riDt lP0S,6tS2 tl ll-FLD<C»6tT> 

erci02b 

OiG 1 1 H- 

22 ♦ 


60 T O 2 GO 


ro US 

23* 

100 

iros = :=IPOS - 36 

CQDCMO 

C 0 J 16 

2M ♦ 


Fli0tlF'OS,fi,S2l2II = rLtl(0.6.TJ 

LniOOri 3 

CDU7 

26* 

2G0 

SrN-WOfrfU =51 

unujsi 

0GI?0 

26 * 


RTTURN 

0CLQS7 

r.oi2i 

27* 


im 3 SUfROiJTINC PUTT 

CC0C72 


ORIGINAL PAGE Ifc 
Pe POOR QUAUTY 
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'i.r!:>>4i.i:i#',>i,rj2iiy 


SUBROUTINC RtAOMS 


ENTRY POINT OOOD70 


STORAGE USED CODE m OODIGT; OATA(O) 000511; BLANK G0MM0N(2> OODODO 


external PEfERENCES IBL0CK» NAME* 


OQD3 
000 ** 
00 C5 
OCLS 
0007 
0010 


KCOOE 
NPOAT 
N J 01* 
Nirz* 
NL’DU* 
NCf?R3 4 


storage ASSJGNHENT IBLOCK, type, RELATIVE LOCATION, NA«C1 


0000 

D0046G 

I DO IF 

0001 000031 IISG 0001 000041 1226 

Qoca 

0 CaC4Tl 

DCOPE 

OCOO I 0D0457 I OOQO T DOOR 71 IGCDE 

0003 

I GOQQGO 

NCO'DE 

0000 0 ODOOOa page 

3 0100 

1* 

CRCAOHS 

iOlOl 

2* 


SUBROUTIKE REAOHSiNllN it, array .NUOPDS.'CODE ) 

QOIQI 

3* 

C CALli SEOlltIJCE HUHIT = TAPE NO. 

CO 101 

**♦ 

G 

ARRAY = ARRAY TO PE LOADED 

GGlOl 

5* 

C 

NUOROS NO. OF WORDS IN ARRAY 

CGlOl 

b* 

C 

CODE = CODE (SEARCH KEY) 

^e01G3 

?♦ 


DOUEtr PRECISION A RRA Y < 1 ) » COO E * P A GE (1 5 1 UGCOGE 

OOlOM 

P# 


ECU IV ALE NCE (DC ODE tlCODEJ 

0C104 

9^ 

c 

STNCr FOflhAL ARCUHENT HAY NOT BE USED IN COUI'VALE: 

CO 104 

ID^ 

G 

STATEMENT* ASSIGN THE VALUE TO A LOCAL VARIAPXE, 

CC1C5 

ll* 


OCOOC = CODF 

COlOb 

12* 


LPADE=fj4 

DO 107 

13* 


irnUINlT.CQ.7l GO TO 9 0 

DDlll 

14* 


LF^ACCr 151 

con 2 

IS* 


ICDDC- NCO'DE tCOnC » 

CC112 

K-* 

G 

TRANSFER DATA FROM BUFFER 

:dii2 

17* 

C 


CDUi 

1 1! • 

90 

RIAN ( NUN n McOnr ,CRR = 999) IPAGECI 1,1=1 , LPAGE 1 

C0 1?l 

19* 


DO 130 IrlrNUoRDS 

.00124 

20* 

lOD 

MNiAYf t J = PAfit U 1 

30125 

21 ♦ 


RCrUF^N 

C C 1 2 7 

22* 

99 9 

WR] rr fft, ICQI 1 NUN IT 

CG132 

2 3-» 

icoi 

rORPATl/* EHROf? OCCURRED DURING READKS ON UNIT *■ 

00133 

244 


RETURN 

CD 124 

2 1* 


ELD 0 SUBROUTINE READHS *4**4 **4*********+ *♦♦♦♦ 


OCOl 

GOOD 


00Q02C VOL 
Q 00 <i 7 b XN 4 P 4 


0001 OOnOVT 99 V L 
OCOC 1 C004S& LPAGC 


000002 

C0C002 

000032 

C0CC02 

OQOOQ2 

CCCC02 

ccooaz 
000002 
CCLn02 
GOCOD2 
0QGLU2 
0DGOCJ4 
CG0G06 
uDOOl 1 
DObOLT 
GOCOl T 
COCCI 3 
C 00 Q 20 
LObC** I 
0BGD4 1 
C 30 U 43 
000047 
000354 
C00054 
C0C136 


ORIGINAL PAGE ft 
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ruHCTIOH shift ENTRT POJKT D00263 

STOR«Gt USED cooetll ODOZTM; DAT*«0» OOOQ31; PLANK COBHOMrZI OOOQCO 

EATEPHIL RCFERENCES IPLOCK, WAKE) 

0C33 HCPB3S 

STORAGE ASSIGNKENT IP'.OCK, lYPCt RELATIVE LOCATION. NAME I 

OQC) OGr;2K<« lOOCL 0001 300022 120L 0001 0002 IK ISOC 0001 OQOIZK SOOL 0001 C0012G S2CL 

Or.CC 1 C 00006 I coco 000012 INjPI ooon I QDOOOT J dodo T OOCCOS « OOCO 1 OOOOOK N5 

OOCO P CDC310 S OSOO 0 000013 iOP OCOO 0 OtSCOOD SHIFT 0000 R 000002 T 


OGIDI 

1* 


OOUELL PRECISIOW FUr^CtlOW SHIfTCSI.NI 

LOCOOO 

COlOl 

2* 

C 

SHIM 1HC 1ST 60 BITS IH nOU3tC PRECISION yORO $, H POSITIONS 

COCGOG 

acioi 

2 ♦ 

c 

IDflORF THE RIGHT-HOST 12 PITS OF 72 BITS, 

GOQOQO 

COIDI 

4* 

c 

IF 

CODOOC 

' e 1 3 1 

5« 

c 

U > 0 LEFT CIRCULAR 

caocDO 

€0101 

6* 

c 

H < □ RIGHT SIGH EyTFHSlOM 

CGCPCC 

PDlCi 

7* 


DOURLf PRCCISIOH SOP 

DOtOOC 

DCiC4 

H* 


DIMENSION Sf2)*Tt2),Sn2l 

CGCCQG 

ccies 

5 • 


E OUT vale HCE (LOPpS) 

GO uQC G 

CGlGfe 



sn ) = SI n I 

cccEcn 

CO 13 7 

11 • 


5 U ) = S 1 t 2 ) 

CDCC02 

CDUO 

ir* 


nil ^ 

QOCCOM 

3 c n 1 

13» 


TI2 1 - 0. 

CCC3D5 

:cu2 

• 


IF UAHSU/1 .6C.605C0 TO LOOD 

CCCGCfc 

CGI m 

15* 


ir iH.ro^clDO TO laOG 

COOOl 2 

OOlU 

It* 


ir n/.L7*GIG0 TO 500 

OOCOl 4 

criro 

17* 


N5 r H 

UCuOl 7 

:gui 

1 .e • 

12D 

rt r inHCtfJS,23l 

CCLG22 

CCl 22 

1 


I - 24 - H 

L0LC21 

CC 123 

2C* 


J r 36 - M 

DD0031 

0C124 

2] ♦ 


rtOn,M,M2n - fLOCOpHtSUH 

COCC34 

:.C125 

22* 


rtDCDpjpitm = FLOfKiJ.smi 

CGCCM? 

ro L26 

?!• 


riD£jpH,iti 1) ” FLDJOpHpSrzn 

CDCCtI 

CC127 

2ij * 


FUUj,Iin2M * fld^m.i.suu 

CD DOTS 

CC 1 20 

25 ♦ 


n: = ?.'S - M 

GCOllC 

GDI 3J 

7L* 


S m r T <1 1 

OOLl 1 3 

LC132 

27* 


S <2 1 ' T i 2 ) 

LODI 1 S 

DC M 3 

2L* 


U (ilS^GT.DlGO TO 120 

LOCI 1 7 

GDI 35 

7fi* 


GO TO KjGD 

CGC122 

tC]lh 

3G + 

SOG 

CCN7 iLtJl 

C0G12^ 

GC137 

3 1* 


Ut 

DOC 12 4 

C C ht 0 

32* 

*520 

c ojn IHUE 

LnZ\2b 

' D 1 ii 1 

♦ 



■ ' i • f 
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C0142 

34* 


j = 36 * W 

0D013S 

00143 

354 


r = 24 - M 

GOG137 

oeu^ 

36* 


riD CH.jpTf 11 1 = FLOfO.JfSmi 

00C142 

CQH5 

3 7* 


rLD(DiH»Tc2n “ ri-0< j.MtSiin 

GDC160 

:om6 

3 ft* 


no »M ,1 , T (2 1 1 t: FLDfC,i»Sf2n 

0QU71 

C0H7 

39* 


DO 5 4C 1-1. M 

C00214 

C0152 



J = I - 1 

006214 

0D1S3 

4.1* 


Fl01J,l^TCin r FLOCO.l.Sfin 

U0G21 7 

00154 

42* 

540 

COi;T IfJUC 

C0..2 3 1 

00156 

43* 


NS - NS - H 

C0G231 

00157 

44 


Sll ) - T 111 

OC0234 

CD160 

4D* 


5 12) = T 421 

CCC236 

It 161 

4fc» 


IF IKS.GT*OIGO to 520 

COG240 

GC 163 

47* 

1000 

CCNTJNUE 

LDC244 

0C164 

4fc4 


SHIFT r SOP 

GPG244 

coats 

49* 


f?X i u«w 

COL24S 

0 0166 

5C* 


CND a shift 

COOP73 
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SUBftOUTl'NC STRMOV tWTRT POINT 0000<i3 


storige: usro conten odcobt; oata<oj ooddig; blank coKnoN( 3 t ooocoo 


exTERNAL RCFCRENEES IBLOCK, NAKEl 

0D03 EETT 
DGOA PUTT 
DOOS NCR»3» 


STORAGE ASSIGNMENT fOLOCK, TTPE, RELATIVE LOCATlONt NAhEI 
3CD1 DCC005 IDbG OCOD I 0Q00C3 I 0000 DOOOOR TNJPS OCOO I OQCOQ2 H QCOO 0 GOOOOO T 


DOlOi 

M 


SUBROUTINE STRHOVrsi* Kl. N. S2* K2) 

DDGCGS 

00101 

2# 

C 


GD0CC5 

COlOl 

3* 

C 

STRMOV MOVES N-CHARACTER SUBSTRING OF STRING SI, 

COGOOS 

EOICI 

4* 

c 

BEGINNING WITH KlMK CHARACTER OF STRING SI, 

rOLDCS 

ooiai 

fi* 

c 

TO A NEW LOCATION BEGINNING WITH THE K2*TH 

CCCGC5 

roiai 

6 • 

c 

character position of STPINO 52 

EOCPDS 

COIGI 

T* 

c 


occccs 

CC103 

£♦ 


DCUDLr PPECTSTDN 51(11, S2(ll 

CDCDG5 

0 C 1 C ^ 

9* 


OnUBLF POFCISION T 

CCCCD5 

0DID5 

1-* 


no 1 on M r 1 , N 

cocoes 

SDICS 

11* 

c 


cocoes 

CG J DS 

1 ?* 

G 

PUT 3 MH C31ARACTER OF Sl-STRINC INTO TEMPORARY LOCATION T 

cooccs 

LQllQ 

13* 


I - K 1 • H 1 

Lccoas 

:cui 

34* 


CALL GE T T (S 1 , 1 . T 1 

COCCI 1 

CClll 

IS* 

C 


COCCI 1 

OOMl 

u* 

C 

MOVE CHARACTtp ALONG TO 52-STRJWG 

CQCOll 

:cii2 

17* 


I * K? ♦ K - 1 

COCCI 6 

com 

le* 


GALL PUTT (52, I, T1 

C.CCiC22 

00114 

14* 


100 corn 1 VUE 

GCLC3 1 

COiU 

20* 


RET URN 

COLOil 

CGU7 

23* 


ENU a sueRoiruNC strmov 

COCCStr 


\ 
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SUBROUTINE UfilTHS ENTRY POINT 000070 

STORAGE USEO COOEat 000X06; OATAtOt C00S06; BLANK CCNH0N(2 1 OOOOGO 
EXTERNAL RCFCRENCES (BLOCK. flANEI 


0003 

MCnOE 

0C0<* 

NwnAi 

5005 

MOIV 

00 36 


D5C7 

KUDliV 

0010 

Ncni?3t 


STORAGE ASSI6NNCNT (BLOCK, TYPE. RELATIVE LOCAIIDN. NAME 1 

QCCO G00460 ICOIF 0001 000027 1X10 0001 000011 1?2G 0001 000020 90L OCDl C00D50 9991 

DODO D &CC167 DCOOE OCOO I 000157 I DODO 1 000167 JCOOE 0000 000171 IKJP* OCCO I C00156 LPA6C 

0003 I 000000 NCOOE 0000 0 000000 PAGE 


301CO 

!♦ 

CVRITmS 

COC002 

5C101 

?• 


SUOPOUTTNr VRIIKS ( NUH J T JlV ,TJW0RD5 VCODE 1 

LDtr02 

CC131 

3* 

C CALL SEQUENCE KUNIT = TAPE NO. 

C0C'C02 

3C101 


G 

ARRAY = ARRAY TO PE LOADtD 

DC LOO ? 

30101 

S* 

C 

NVORDS = NO. OF UOROS XN ARRAY 

CDCCQ2 

ccioi 

t* 

C 

CODE = CODE (STARCH KCVI 

DDL CC 2 

3D103 



OOUPLE PRECISION ARRAY ( I) .CODE . PAGE t X SI X .DCOOE 

COCOC2 

GOICH 

e * 


EOUIVALEHCE (PCOOE .ICOOFJ 

CCDC02 


9* 

e 

SINCE FORMAL ARGUHENT HAY NOT BE USED IN TOUIVALENCC 

tOCDO? 

0004 

1C* 

c 

STMEKEWT, AS51CJ* THE VAlUL TO A LOCAL VARIABLC* 

CJCDCQ2 

3Q1C5 

n* 


oraoE ' CODE 

DCC302 

00106 

12* 


LPArC= 6R 

cncou4 

CO VQ 7 

1 :•* 


ir ItJUNlT -EQ •?! GO TO 90 

oQCoafc 

uCll 1 

m* 


LPAOCr 15X 

C3C0Z 1 

001 j 2 

!£♦ 


lEonc - Nroor tconc ) 

CQCDt 1 

00112 

10* 

c 

TRAN5^FCR DATA TO eUFFE R ARRAY 

orooz 3 

:.C112 

17* 

c 


LDCOl 3 

□ 0113 

IH* 

90 

no lOG I"1 ,NVORDS 

coccco 

CC i 1 6 

ZV* 

100 

PACE ( T » = A^ f?AY ( I 1 

CC0C27 

0G120 

20* 


VRI TE OUJNI T •IC0nE,ERRr9?9) IP AGE (T> »IrJ *IPAGE> 

0DC031 

CC126 

21* 


prruRN 

GGCG44 

CC12 7 

22* 

999 

CONTU?OE 

OC&DSO 

OC130 

23* 


wnnr t6»icoinajNiT 

Gocrso 

OC133 

24 ♦ 

lOCi 

FCHHATI/* ERMOn tJURlNC WRITM5 ON UNIT •,I3I 

CCCC55 

OC-234 

25* 


RETURN 

cocoes 

0013S 

2t* 



COOICS 


5.0 WINTER PLOT PROGRM 


Liiieprinier plots of simulation results ere produced by o postprocessor pro- 
gram I^1S^\PPT. This program is e.\ecut'ocl after the completion of the simulation 
program. NStWPT reads simulation and scaling data from tile SCRTCH2d and 
produces the requested lino printer plots. Figure 5.1 shows the macro i low 
diagram ot NS^^PPT. 

Each unique channel ot ploi dala is stored on tile SCRTCH26. Channels^ such 
as Ti^Mi, which may be used by several plots are stored only once. The lor- 
mat data describes how tlte channels are to be combined to form the plots. 

The individual channel data are loaded into an array OSPLY. The data tor 
each plot is then scaled and transtoimed to liollerith term and placed in 
the array GRAPHR. Tille and scale iniotmation are also placed in this array 
to form the linal plot con t i guro t ion. 

The contenis of GF\APHR arc printed on the I i nepr in tor to produce each plot, 
5,1 WINILR PLOT PKOGRAW SOURCE LISTINGS 

Compilatiois listings tor the NSiWPPT program tollows. file names ot tne rou- 
tines, listed in alphabetical order, are; 


CENTER 

NSMPPT 

GNFPLT 

Pt.OTC 

OR IDE I 

gPPLOT 

LEFTT 

QXAVXMN 

EINPLT 

RTLPLT 

A\NJti\X 

SIMPLT 

NCHAR 

TNFPLT 
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FIGURE 5.1 NSMPPT PROGRAM - MACRO FLCW DIAGRAM 
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SUBftOUTXNC CtMTtn 


ENTRY POINT 000067 


n 

trt 

o 

CO 

0 

1 

CO 


STORAGE USED COOEill 0CD205; DATA (01 000022; BLANK C0nN0N(2l 000000 


EXTERNAL RETERENGES t BLOCK » NAME I 


0003 

NCHAR 

0GD4 

Gt T T 

0.00S 

PUTT 

0006 

NLRR3* 


STORAGE ASSliGNNENT (BLOCK « TYPCt RELATIVE LOCATJONt NAHEl 


0001 00 COO 3 107G 

O^QGO I CcOOG** I 
anco I ocoGii neno 


OOQl 0Q0056 200L 

0000 I oaoolo IT 
OQOQ I oocoar nn 


0001 000032 25L 

OOOC 000013 INJPS 


OOpQ D 00C002 AR 
QCOO I 000C05 JSTART 


OCQO 0 DOOCOO BLK 
GOOD 1 C00006 NCH 


COliOO 

1* 

ceenter 

CQ0003 

CO 101 

2* 


S UB R OUT I NE C E N f E R ( A RR A Y , N A • T1 T L E 1 

000003 

oeiDi 

3* 

c 


CC0C03 

COlOl 


c 

CENTERING TITLES 

C00Q03 

GOIOl 

5» 

c 


CCCU3 J 

0 0 10 1 

6« 

c 


000003 

i:;3 131 

?♦ 

c 

ARRAY CONTAINS CHARACTERS FOR TITLES OF PLOT 

DCG0D3 

: C131 

B« 

c 

NA 3 MUHllER OF CHARAGTEPS IN ARPAY 

OOOGC 3 

F C 1 Q1 

9# 

c 

TITLE = ARRAY COffTAlNlNG CENTERED TITLE 

CCDOoI 

CO 101 

IS* 

c 


C00003 

0G1D3 

U* 


DPUBLE PRECISION ARRA Y t 11 «T I T LE U t «BLK , AR 

cccno3 


I2f 


DATA PLH/12M 

coce‘33 

00 10b 

13* 


DO 10 l“ltl2 

000003 

^Clll 

14* 


title Cl irliLK 

CC0003 

G01I2 


10 

CONTlFiUE 

ceoccs 

ooim 

16* 


C ALL NCitft R ( ARRA Y » NA , J S T A R T , NC H I 

CGL335 

cons 

17* 


IT rwauEO^o) go to coo 

C3LG1 3 

COM 7 

U* 


NNr t IPO-NCH 1/2*1 

COLGIS 

CQ 120 

19 • 


H = JS7AR1-1 

C00322 

CC121 

204 


I N - 1 

CCC02S 

:ciz 2 

214 


Nnio^n *tiCH 

^00027 

C0123 

22* 

25 

T I - 1 1 * 1 

1.0CO32 

00124 . 

234 


1=1*1 

000054 

IC12S 

24 • 


CALL GtTT(AT>RAY,JI,AR) 

Cn0337 

roizb 

2S* 


CALL ru-TT(lITLE*X«AP| 

L0LC44 

lC127 

?f.4 


If m.LT*NfMDl GO TO 25 

COCOS 1 

00 131 

27* 

200 

Rf TURN! 

C00CS6 

00132 

2F4 


END 

C00ID2 
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SUBROUTINE GNTPET ENTRY POINT DOODl? 

STORAGE USED COOE(l) CD0023; DATA<0» DOOOD6; BLANK CDHHONC21 000000 


CXTEPN^^L REFERENXES (BLOCK, NflHE» 

0003 NRPUS 
OOC*l Ml 02t 
0005 NCPR3i 


STORAGE ASSIGN>1ENT (BLOCK, TYPE, RELATIVE LOCATION, NAHEI 
O^Ol 000006 iOL CODO R GDDODO OUKHV 0000 D00002 INJP* 


OOIOQ 

1 ♦ 

CGNfPLT 

OQOOQC 

CQIOI 

2* 

SUBROUTINE RNFPLT (Nil, J,K I 

COOOCC 

0C1Q3 

3* 

READ tZ6,ENn“laJ OUhMY 

coocoo 

CG1C6 

M • 

10 K r 1 

Cpooob 

LOIGT 

E* 

2D RETURN 

C0CD07 

couo 


END 

ODOG22 
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SUnROUTIWt CRlOtl tSTPr POIWT OOaSTD 

SIORAGE USED CODE K 11 000^41: DATAIOI 000033; OtANK C0nn0HA2l OOOQOD 


EXrCPWAL fttrERENCES IBLOCK, RAHEI 

0DG3 ALOOlO 
QaO*< tPPj 
DDC5 N1PR31 


storage 

ASSIGNHCMT 

(BLOCK, TYPE 

, RELAT 

ivt 

LOCATION, NAKtl 









s. 

0031 

OlOTC<4 

lOL 

DCGl 


000117 

20L 

3001 

cool 33 

33L 

0001 


000262 

60L 

0001 


00C270 

sot 

GOOD R 

o::coo5 

HSTTP 

30DQ 

3 

ooooco 

IN 

0000 

C0D025 

INJFS 

0000 

I 

000003 

H 

ooco 

1 

corooT 

NHAX 

OQQO i 

CLOOl D 

SSTEP 

GOCO 

R 

OOCOQl 

SPAN 

OCOQ 

B 000002 

STEP 

ooco 

B 

oaocoN 

X 

CCuO 

B 

C00306 

XPAX 


QOIQO 

1* 

C&PIOLI 

cooooo 


uDlOl 

2* 



SUBROlt) INC cn 1 DLI ( NDVKAX „AN1 N , «K AX , SHIN* SHA X«N01 V.NSICI 

COCPQO 


!?Cl01 

J* 

c 



COCDCC 


GGlOl 

4* 

G 


PURPOSE - TO SELECT AXIS SCALES FOR A LINEAR AXIS, 

cooooo 


CCIDI 

5* 

C 



cocooo 


co:oi 

fc t 

C 


AHIK.AHAX - HTN AMD HAX VALUES OE THE DATA. 

CDG300 


enrol 

7* 

c 


SPlrnSMAX - HIM and «ax of axis scales. 

cccooc 


CDlOl 

B* 

C 


NDiv ^ MunncR or grid divisions. 

cccnuc 


rcioi 

9* 

C 


MSI6 - NU'HRCR of SICNIFICANT FICURESFOR ANNOTATION, 

GOGOCO 


f^oroji 

10 ♦ 

G 



LbCOOC 


GOIOl 

11^ 



IN - 1 

CDC30D 


OGIQM 

12* 



ir t sum .ne. a. a .or. smax .ne. o*o i bo to bo 

COOOOl 


0G1U4 

U* 

C 



rocooi 


0 0 104 

14* 

C 


SET AXIS INCfiCHENT TO 1,2 OR 5 * UI**N, 

COUCJO 1 


ggioh 

15* 

c 



CDCOGl 


rcj06 

1 1* 



TF ( AOS lAKIN-AHAX > .LE. I.'E~6*AHAX 1 AHAX = 1.00G001«AN1N 

CCCD] C 


•Clio 

17* 



IF « AHAx .ro. c.o ;ano. ahin .co. o.o i amax = i.c-o 

10 062 2 


-01 12 

16* 



SPAN - AnSlANAX“AMINl 

006035 


coil 3 

19* 



SICP = SPAN / riOA T (NDVM'AXI 

D0004 1 


ODim 

?C* 



U ^ AiOClOrSTCP) 

0nC:04S 


tons 

21* 



IT ( SUP -U. 1.0 1 N - N - 1 

GCC057 


L.D11 7 

22* 



X = STCP / ]G.a**N 

6PuC66 


C0I20 

23 ♦ 



IF 1 X .fiT. 2.0 1 GO TO ID 

0C6D75 


00122 

2^ ♦ 



STEP = 2.0 ♦ lO.Ot+N 

LCCl GG 


C0123 

2 t* 



GO TO 30 

nccic2 


E*0 12M 

26* 


10 

If i X .Gi. S.O I GO 70 20 

CDCIG4 


EC126 

27* 



STCP - S.D ♦ 1U.0**N 

coGia? 


uei27 

2 e* 



60 10 30 

OOCJ 1 5 


0C133 

2 44 


20 

Sir P :: I 0.0** iU^ 1 ) 

rXGll 7 


00131 

30* 



IN “ 0 

COC J26 


00132 

31* 


30 

CONTJK^UE 

CiQCJl 3G 








■fc. 





CD 132 

32* 

C 



000130 

0D132 

33* 

c 

5CT SCALE MAX AND WIN. 


CD0130 

DO 132 

34* 

c 



CO J13D 

IC133 

35* 


HSTEP :: SltP ♦ 0p5 


CDC13C 

3213*1 

36* 


SPTTt AIWTfAHIN/KSTEPI • H5TCP 


2DC132 

L’C135 

37* 


IF t AMIN pLT. 0.0 } SfllN = SPIN - HS7EP 


230137 

CD 137 

3f ♦ 


SPAX r AT?:T( A?iAX/HSTCp) * KSTtP 


C02145 

2C140 

39* 


IF J AMAX .JtT. 3.0 ) 5.KAX - SKA* ♦ HSTEP 


CCt.lS2 

znmz 

4C« 


X = AKOD tASStSHihJ .SlfPI 


CCD J6C 

nojHj 

41* 


IF i X .r>T. 0.021*STCP ,.AND, X .LT. C.9994STEP 

1 

60C167 

UC‘14 3 

*4?* 


4 ZHIU z SKIN - HS7EP 


CGL16 ; 

C01**5 

4 3* 


X AHODC SrAX-SttlN , STEP 1 


E3L212 

t Dl*<6 

44* 


IF 1 X .GT. 0.03l*SrLP .AND. X .LT. 0.9994STEP 

1 

222222 

'CZ 1 4 b 

Ht* 


♦ SMAX r SKAX + HS7EP 


L0C222 

CC1M6 

4L* 

c 



22L222 

:;c 146 

47* 

c 

FIND NUKDER of £UR*01 visions. 


C3C222 

•-C J4C 

4R « 

c 



C0J222 

LCIS3 

4 • 


HDIV - iSKAX-SrtiNl / STEP ♦ 0 .S 


C0G245 

&C1S1 

LD* 


GO TO hd 


Q0226Q 

rci5i . 

51* 

c 



DCC260 

COISI 

52* 

c 

FIND flUPPCR OF significant FIGURES. 


LC6262 

ILl^A 

53* 

c 



;.22?62 

C215»2 

64 ♦ 


RO CONTINUE 


2C2262 

CCib3 

55* 


STEP - 1 SMAX - shin ) / FLOATftlDlVI 


C00262 

COlbH 

56* 


50 CONTinUC 


COD270 

?L 1^5 

S7* 


XMAX = AKAX1 tAesiSHlKT«ABS(SHAXn 


DD j27D 

C 2 1 & 6 

5fi* 


HPAX r AL0G10IXHAX4J .GOOU 


3CD276 

22157 

6^4 


NiT*^P = ALQG1DC5TFP1 ♦ l.OGDDl 


CD231 2 

:ci60 

62* 


IF ? STEP .Lf. l.C .AWO. XKAX .CE. 1.0 » NSTEP 

= N5TEP - 1 

CDC325 

20162 

61* 


IF C STEP .GE. 13.0 1 I« 1 


CCD346 

CG164 

62* 


NSIG = N?tAX - NSTfP ♦ IS 


0DC354 

CC165 

634 


RETURN 


20L-360 

20166 

64 « 


END 


CCC44 J 


CT 

O 

cn 


4 :^ 

O 

CO 

0 

1 ^iJBPOUTIM£ LEFT! EHIPT POTWT 00007^ 

iTOPA&t USED conetxi CSOir?; DATifO) 0C0Q2Z: BUMF- COlS!tONC 2 » CCOCCD 

(■ 

COHHOW BLOCKS 

03C3 fLEFTT CDC!<4 6 
QCC*i VUTl C00{?C1 


EXTERNAL RCrCFtMCrS fELOCF. MX^El 

Goes 

OQCt GC.TT 
OOC7 HLP^J\ 


STOBAGC #S5:IG|4>-CW7 tfiLDCK, TtPt, PXUTIYE LOC*7ION, MA«E) 


□ 0 01 : DECG 35 1120 

0003 1 CGG0D7 lEHO 
jcrco 1 ccGCOi. Ftiv 


aODI ODOOM4 1315 
CCL-0 D02G11 IWJFt 
GCOG 1 0DEO05 MCH 


ODDI COCS31 25L 
DOOM GDOCOO lOUTP 
3DBG I ca3G02 UH 


0000 I DO 0003 I 
coco I CaODE^ ISTXRT 


CCOO □ CSOOOQ IFU 
□CC3 D C00333 LEFT 


EC 100 

u 

CLET7T 

C0CEC5 

GOlOl 

2« 


SlfOPCfUTJMt tEF7TCARP*Y,LA) 

C3LCCS 

COlOl 

3« 

C 


ClS3C25 

00.1 Cl 

4* 

C 

LEFT TITLE 

rC^S35 

rcioi 

S* 

c 


CGLECS 

zcitsl 

fc* 

c 


C3LC35 

^'0101 

?• 

c 

CONTAINS CHA.RJCTEPS FOP LEFT TITLE 

C3EG05 

coiai 

£* 

c 

LA r OF CirA^AClEPS lU APPAY 


crioi 

9* 

c 


f .r c. 

CCID3 

I'l* 


DruPir PBECTsron appay n » ^left.ielf 

COLCCE 

OC'IOH 

n* 


CCnPG?^/CLrFTT/LrFT ( sn 

EC wCu S 

CD 1 05 

12* 


COKi'0*;/G'ilT/IOUTP 

CCuCCS 

0Ci06 

13* 


data IELK/1?H /,>I.W/51/ 

^ ^ t 

OGlOt 

• 

c 


Ecce: s 

CGlEf. 

!%♦ 

c 

pla/;k gut left appi'i 

CECECS 

LC1C6 

16* 

c 



«C11 1 

17* 


DO 2 T-! 9^nf 

C3CGC L 


1 £* 


irr T f I j = itLx 

sEircs 

0CI15 

19 • 

2 

CGN tP/UF 

rCLGC7 

'Cl 1 7 

2C* 


IF ILi.rc.Gl PETUP^T 

33 C 7 

LCli? 

21^ 

c 


^ ^ ■ 1 
-H i- ^ ^ 

,:cn7 

2?* 

c 

ccMff> n rtr tu left appay 


CU i 7 

2!« 

. c 


r: ;.'^7 

tri2i 

2^f • 


CiLL NCHAPI APPA-r , L A , I 5 T A p T » MC H 1 


CE122 

2 5« 


if f ftfn .LE * GO 70 25 

C:CG22 


2L* 


KCH-HfS 

CL C-E? 6 




t w -^w'-’-spaww 


OmoiNAI. PAGE la 
OP F(H1R QUiVlOT 



"08101' SD8 


I! 


0012S 27* 

50124 2e, 

rOJ27 27* 

CSllJ 2C* 

OC123 3j, 

C012V 32, 

OCl J5 33* 

SCilJ7 j«, 

tCl<ia 35, 


25 


3D 


CCM7 Il/uc 

f‘VV= lUU-liCH i/2 

irhSzJZt Art! *itCH~l 

f^nuToi 

tfin 




C0003 i 
COLOZl 

CCZDUG 
tCoC^ H 

CVZ-M7 
iCCrjLi 
Ci> Ip L 6 J 
CDClCt 
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SUBf^0UTXN£ LlMPLT ENTRY POINT DOQ167 

STORAGE USED CODE fl) 00D233; DATA(CI 000050; BLANK COHHONIZt OOOCCO 
COHKOfJ BLOCKS 
0003 UNIT DODOOl 


CXTfRNAt PETEfifNCES I0UOGK, NAHEI 


000*1 
0D05. 
CO 06 
03C7 
OOIG 
0011 
0 012 


PLOTG 

CENTER 

LLFTT 

Ninn 
M 0J% 
NX PR y% 


STORAGE ASSIGNMENT ( BLOCK ^ TYPE» RELATIVE LOCATION* NAMEl 

□ ODl 000022 ICL QCOQ 0CDQ3*» 1 GQF DGOQ D0DQ37 lOlP 0001 000042 ISL CCOl C0C102 2CL 

OODl C0012Q 30L 0001 DDG1S7 40L 0000 G0DD33 SOiF 0000 I OO'GOSO INOl QiDCO CQ0G42 INJPS 

03G3 I &0GOQ0 XOUTp ODOQ I 00003 1 NOUH 0 000 1 000032 N2 0000 D 000000 TITLES 


rOlOO !• CLINPLT 

00101 2* SUB ROUT INE LINPL T ( X , Y * N tNT T *T T , WTL ,TL ,NTO 1 ,TB1 *NTB 2 ,T B2 * 1 AlMO I 

COlOl 3* C 

OGIQI **♦ c subroutine: to draw plot via plotc 

CDiOl 5* e 

20101 la C 

COIOX 7* C X r ARRAY OF POINTS FOR APSClSSA 

CDlOl P> C V = ARRAY OF POINTS FOR OROlNATt 

CGI 01 9^ G N " Niin^ER Of POINTS TO OF PLOTTED 

TCXOl 1C* C NTT = NUM.DLP OF CUaRAGIERS IN TOP IIXLE 

GDIGI 114 C TT = array containing TOP TITLE 

GDlOl 124 C NTL = NUKHTR OF CIJARACTCRS IN LEFT TITLE: 

'0101 124 . C 71 = ARRAY CONTAINING LEFT TMXC 

CCIGI 1M4 C NTtll = NUNliER OF CHARACTERS IW FIRST BOTTOM TITLE 

■CClOl 154 C TPl r ARRAY cninATfiniC FTRST tVOTTDH TITLE 

COlOl 164 C NT&2:: NUMfiTP Or CHARAfURS In DOTH SECOND AND THIRD BOTTOM TITLES 

CGIQI 174 C TF-2 = ARRAY C0N7ATN1UC nOTH SECOND AND THIRD BOTTOM TITLES 

::Q101 1R4 C TP2n)\T-l,20 can contain only second bottom title 

COTOl C T^2 ( 1 1, T-2J /ID CAN CONTAIN D^aY THIRO BOTTOM TITLE 

COIGl 2G* C IAIJTQ::0 AUTOMATIC SCAi.irJG 

rClGl 214 C TAUTOrl AiilS VALHLS PrOVTOtD T N 2SCALE 

COlOl 22* C 

0010 3 2 34 DIMENSION X { 1) * Y ( 1 ) , IT t U , T L( 1 * . T B 1 C U , TO 2C l> 


DC 0000 
000000 
CCOOGO 
CDGOCC 

occnoo 

COCrCOG 

croooo 

OCOOGO 

GOLCOlO 

CCLOOO 

LCODOG 

coccoo 

r.oLooc 

roccoc 

cocooo 

cccooo 

OOCGGO 

F^ainuc 

tCLOUQ 

oncGco 

GOCCOG 

CPLCOO 

CDLDQO 




a0Vd * 


BCS 40180 


§ 


0010^ 

24 ♦ 


OOUOLt PRECISION TlTLrS«l2l 

ODODOD 

'Dies 

25* 


OOUPtr PRECISION TTtTt,TBl,7B2 

cocooc 

00106 

2t* 


GOttHON/UNI T/10U7P 

CODCOO 

vClQ7 

27* 


IP fN*tO.DJ RETURN 

. OOCOCE 

CC107 

2?* 

C 


GGCDOO 

OC107 

2S4 

C 

CHECK FOR MULTIPLE CURVE PLOT 

CDCCDC 

CC1D7 

5:^ 

C 


LCDCUC 

:cui 

31* 


If (H*GT.C1 r»0 TO 10 

0DCCO5 

GDlil 

32* 


CALL PLOTG(N»>t,Y»lAUTOl 

LCDOl a 

CCllH 

33* 


RETURN 

COiiClt 

cans 

34 • 

10 

couTinur 

CCDn22 

reus 

25* 

t 


0C0222 

i:ciis 

3 6* 

c 

Of?AU PLOT WITH TITLES 

LCCC22 

OCl IS 

37* 

c 


CDC022 

LD116 

3d# 


I601=C 

DDCD2? 

iron 7 

3S* 


IT (N1T.E0.P) 60 TO 15 

ccun?2 

■:ci2i 

40* 


CALL CENTfRlTTtNIT^TlTLESI 

CCLD24 

r0122 

4) ♦ 


Wf ITEM OUT P, 101 I TITLES 

DDCn!l 

DC 125 

42* 

15 

If fNTi*EQ.?1 URiTEM0U7P,50l 

CCDG42 

00130 

42* 


call LCFTT(TL,N7LI 

LCLTRO 

GD131 

44* 


CALL r‘LnTC<N*X,Y*T AUTO* 

QDl.254 

□ C132 

4S* 


IF rrJTPl.EQ.Dl no to 2Q 

C'DCa6 2 

0QX3H 

46* 


CALL ft-nrRITDl,N 7 Bl .TITLCSI 

UCL064 

0C13S 

47* 


wn TE nnuTP,iooi t itles 

OCUETl 

oemo 

4 0* 

20 

cpuT rvuc 

C0C1Q2 

C D 14 1 

49* 


IF ( NTH?. E 0.01 GO TO 40 

ccaio2 

C0143 

60* 


wniirrNTB? 

UO tjlQ 3 

CO 14 4 

51* 


IF lfJTr2 .LE* aoi GO TO 30 

0GG105 

0D146 

5?* 


li.Dl::! 

CDCiMO 

DC) 14 7 

53* 


N2-NTF2-B0 

COCI 12 

LtJlSO 

54* 


uriJM-PO 

CC0M5 

ccisi 

65* 

30 

gall center nB2rNnUH,TXTLESl 

CCGS2Q 

00152 

66* 


VRI TCtlOUTPMCQI titles 

DDC124 

CDISS 

57* 


ir nufJi.Nt.n go to 4D 

LDC134 

C0157 

5fi ♦ 


CALL ClNTER(T02t o J , N ? , T ITLES 1 

C0CJ37 

CQUD 

59* 


URlir MOUTPflCO) TITLES 

LCU46 

CO 165 

6C* 

4G 

cou Tipjur 

LOOT 5 7 

00164 

61* 


RETURN 

DaCI57 

CC165 

62* 

60 

FORM AM IHl 1 

eCL232 

00166 

63* 

100 

rORMATl IK t6Xtl2A101 

GDC232 

DD16 7 

64* 

101 

PCRPAll Mll,6X,12Aiai 

000232 

00170 

66* 


ELD 

D0G232 


I 








. ■ t'»'r»--i"'N«4*!tViV'>‘ =>S''‘-5^w '^i-A; . ?•■•»<•. ■ 




S3 

o 

cyi 


O 

O 

< 


SUB^OWTIWE rw.y £Jm?T P^Olia' £?iJ2G7^i 

sTG.5?iiGF uGro ccGFai cGGiiFi osGaii: blawk coA'>rron*>) c2o:^gc 


FCrtfit^CCt VBLCGK . ?»!>-£ J 


GTtP'AEE iG5XG»f‘-F».T tBlOC/., TTPr , RELATIVE LDCATI3»f, JUHC > 

S/CCl ::C‘:C2.2 IGl EGGI IZ2S £JEG1 00003 6 20 L 0 000 1 OOGDDl 1 OCCO T COOGOO iw 

gc:e3 ce'^:02 


CC1G3 

3» 

C>^H>‘lt 


C3UBDZ 

GciGy 

2* 



tA,K, A3^T3t',*WlXJ 

LtC032 

GClOl 

J-* 

C 


2C DD3 3 

F Cl 0 z 


c 


P'l*;?pcxr - TO F.JK0 TI^F ‘-^J.NTBLrn *KD f?*3CT>!UH VALUES Cf AW AI^PAV. 

LDIZZZ 

toizi 

r * 

c 



L'BLODZ 

CGICZ 

t* 

r 


X - AftT>»r or vALyrB- 

^ t — r ” ■?. 

:cici 

7^ 

r 


- UU.Kr,CP rF LL£^£.'fr: I3i! A. 

CZtZDZ 

-ClGI 


C 


Al^lVvAHAy - ^^a^ Ai;E VALUrS FOUWO* IF AWIW - A«>y, THtW 

ZVZZDZ 

SIGI 

7* 

C 


STA? 1 ilTH IhT VALUfi PASSF0 JW* 

CCIZDZ 

rci?j 

a* 

C 



v- .r- - f- :# 


1 1* 



Am 

0 ' ' 0 * 


12* 

c 



LOlOO 3 

CCIC3 

1 i* 

c 


ci^cr rcf?i o=^ioM*Ar value's or i-ik ako f'lt. 


IT C 3 i 

i 

c 



LOLirz 

CGS0«< 

J 3* 



ir t AHIK .07. A»-:A/ i CO TE 7 0 

€00001 

V f i 

I.' * 



IK = I 

2ZDZD7 

ron? 

17* 



IT [ . IT. 1 J Pf rUPK 

O^OOJ 1 

cGm 

1 H* 



CO to 20 

i;?^r2o 

cciu 

l^* 

c 



€01 020 

i.rni 

2.* 

c 


TKTTTALI2F •'J^i AKO *-A/. 

troozo 

'cm 

2 1* 

c 



1C€€2€ 

CE3 3.2 

22* 


10 

COK 1 IKlJr 

cotirz 

ESLI J 

2 3* 



i>TK - ALU 

£O€0Z2 


.?<<• 



AKA/ r ALU 

C0X02 J 

cciie. 

2C* 



IfJ - 2 


-: X 1 3 

2f • 



iF 1 K ,11, z 1 Prru;>K 

LZLr-20 


?7> 

c 



€10026 

:CiJG 

2^* 

c 


SfA AOH. 

€€€€26 

. c a 


c 



1€1':?6 

G032C. 

3^ * 


2D 

CLNlJ‘at 

3 6 

C 3 2 3 

31* 



LC 30 }-lh\U 

€11X36 


3>* 



If f Akj>^ *0T*. AUJ > A^-TK r aIU 

I"* €€s^ A 

CC-3 26 

3i* 



jT i sr.iy *tr* ahi j akax - alu 

€l€lt 1 

EC 130 

3'<* 


30 

CLKT IKjjC 

€1€161 


o S: 






r< ^ 




B51 




BCS 40180-3 


SUBROUTINE NCHAR ENTRY POINT OOGOT3 


STOPiGt USED COOEMI C00113; DATAIDJ 00GD12; BLANK COMHOMt2l DOOCOO 
GOMHON f'jLOGKS 
ODD3 UKTT 000001 

EXTERNAL RCFERENGES IBLOCK, NANO 

Q0Q4 EiTT 
30DS UinRI% 


SIORAGE ASSIGNHENT I BLOCH. TYPE. RELATIVE LOCATION. NAHEl 


0 201 CX0C22 I CL 

0001 CCC002 Sl 
□DGO I COOOGH J 


□GDI 000064 lOQL 
OCOO 0 CD0002 AR 


0001 000027 ISL 

OOCO 0 ‘COOOOO BLK 


0001 000046 20L OCOl 000056 

0000 000005 iNjrt 0CC3 OOCOCO 


GGICO 

M 

GNCHAR 

CDCOCQ 

CDlOl 

2* 


SUBROUTINE NGI!AR MRR A Y .MAY , IS TART ,NCH| 

OOOOCO 

CO 101 

z* 

C 


BGCOOO 

ocioi 

H* 

C 

SUBROUTINE TO CALCULATE THE NUMetR OF CHARACTERS IN A CHARACTER 

OOCGOO 

CCICI 

5* 

c 

SIRING 

coodgd 

GClOl 


c 


CiCLDCO 

L G 1 G I 

7* 

c 


OQGROO 

^0.101 

R* 

c 

ARRAY CONTAINS CHARACTEP STRING 

rCCDOQ 

rcioi 

9* 

c 

NA = NUHUFR OP INPUT CHARACTERS 

LGOCOO 

coioi 

1G> 

c 

I star t - NUPGCR or FIRST N0N3LANK CHARACTER IN STRING 

CDCCCO 

: c 1 0 1 

1 1 • 

c 

NCH = NtlhRER DF CHARACirRS IN ARRAY SUPPRESSING BEGINNING 

GDGCCO 

IV 101 

]?* 

c 

AMD rrJOlNG planks 

COCCDC 

ociai 

13* 

c 


CDC0C3 

GC103 

14* 


nnupLC pwrcisiGN arraym i .blk «ar 

L D V 3 0 

CO ION 

IS* 


COHMQir/UNIT/lOUTP 

COCOOO 

CO tCb 

16* 


data PLK/I2vr 

ccGcao 

CD 107 

17* 


r.'rn=o 

OCuOLJ 

C0113 

ll:* 


Jrc 

COLCGO 

oom 

19* 

5 

jrj*l 

rocco 2 

con 2 

2C* 


CAIL GL IT CARR AT. J* API 

0C0CC4 

GOI 13 

21 * 


IF URWU.CUKI GO TO 10 

CGUOl 1 

:*Di 15 

22* 


Tf (J.GC.KAX) GO TO 100 

Gcuom 

a c n 7 

2 3* 


GO TO 5 

:dgo2d 

CC123 

24 * 

ID 

I 5 1 A RT : J 

CCC022 

^CL21 

2S* 


J^KAXM 

:'Cu^2 2 

CC122 

2t* 

15 

J-J-1 

LGCrt27 

CG1?3 

27* 


CALL LETT ( array. J fAR 1 

CGCG31 

00124 

2fe* 


I F < AP-Nf *BLK 1 GO TO 20 

DC0030 


25L 

lOuTP 


BCS 40180- 


a0l26 

29* 


JF fJ.LC.OI GO TO IPO 

QOVOHl 

0013D 

3C* 


CO TO 15 

C00044 

GC131 

31* 

20 

nch=j-istaj?t*i 

OCOC4& 

D0132 

32* 


ir (fCCH.Gt.DI GO TO 25 

COCG51 

COJ 34 

33* 


«cn“a 

COCG53 

GG125 

34* 


CO TO ICC 

ccca54 

C0136 

3!i* 

25 

tOMT i WE 

0rDG66 

C D137 

36 • 


IF O4rH.GT,120l NCH=12D 

:rco5fc 

coim 

37* 

ICO 

CPfJT I WC 

OOLQhk 

CC142 

36# 


PtT URN 

CCLC64 

rcu3 

39# 


LUO 

CCCU2 


BCS 40180-3 




V"!! :.J‘ 


■^v-r 




WAIN PRO&f^AW NSMPPT 

storage: liSFD CODMI* OCOI 33 ; OATAtOl ODOOI^i; BLANK C0HW0Nf2) COOGCO 

COWWON BLOCKS 

0003 fPLOTS 000070 
OODM CWOWK 0P6073 
0005 UMT DC3C01 


CXTXRNAL RFFERtNCCS (BLOCK. NAME > 


000 ft 

GNTPLI 

0007 

SJKPLT 

0010 

RTLPLT 

3011 

tnrpLT 

QCl? 

MMTRS 

QC15 

LfipUS 

□ 014 

N I 0 3 » 

0015 

Nines 

00 u 

NkfUJS 

GO 17 

NS'TOPS 


STORAer ASSIGNKCNT (BLOCK, TYPE. RELATIVE LOCATION, NAME I 


eoci C'*OCOL lOL 

OCCl 0 006^ SOL 

0003 I OLftOOO lOPT 


0001 000040 30L 

OCOl 000127 scot 

DC05 I CDDOCO lOUTP 


OCOl 000052 AOL 
ODD] 000100 60L 
0005 0 OOCG56 PLOTIO 


0001 00011? 40QL 

OCQO T OOCOOl lEND 
0003 0 000050 PTITLC 


ocoo coooo? Alor 

OOOO I 000000 lERCN? 
QC04 R C'OOOOG WORK 


OCIQO 

!♦ 

CWSWPPT 

GOODDC 

CD 100 

2* 

C 

program NSMPPT f 00 IPUT ,TAPE6-0UTPUT, TAPE26I 

no 00 Du 

CO 100 


C 


□D C 0 C' 3 

CO 103 

4 • 

C 

NONSIK OrrUtJE PLOT PACKAGE. 

OO0DOC 

CD1G3 

b* 

c 


C0CC30 

raiDi 

£.* 


COMMON /CPLP7S/ IDP7 ( JOl.PLOTlOf 51,PTlTLEf B) 

Locncc 

COllil 

7a 


COMMON /CUOPK/ WORkUIIJ) 

CECLCI 

G0IC4 

e« 


DOUELC PPCCISION PLOT ID .PTITLE 

CDLnOl 

30135 

9 • 


COMMON /um T/ lOUTP 

C0C331 

CC136 

ID» 


rnuTp r t 

EDuOOl 

CD 137 

11* 


IfRCNT r □ 

COtOC3 

roiiu 

12* 


ICND = 3 

G0C334 

com 

t :* 

c 


OCEOD4 

i;CAlQ 

14« 

c 

RCAD THE OPTION AND TITLE ARRAYS, 

E3Cr34 

CC 113 

15* 

c 


CCCQCm 

CCl 1 1 

It* 


10 CONTINUE 

L3L336 

C0112 

17* 


PTaO f26,CNn::50.0) 1 OP T , PLO T I D , P T J TLE 

COC 3Db 

COl 17 

1P<* 


1 2 C ON 1 1 fiUE 

C0LJ2 3 

C0117. 

19# 

c 


EDCo23 

3DU7 

20* 

c 

GCNERAL PLOTS 

3ELD2 3 


u 


^ ■ 

D0117 

21 • 

C 


OnC023 


0C120 

22* 


rr f jopTfU -Mc* 1 1 60 TO 30 

C0C022 


OQ 122 

22* 


CALL O/FPlT CW0RK*S0.2rIE«DT 

C0CD26 


ao 12 3 

24* 


ir C ILMD *l«r. 0 1 GO 70 500 

GCCG24 


CC125 

25* 


ro 70 10 

G0G016 


Lri25 

2S* 

C 


cctajs 


I>C12S 

27* 

c 

SIWULMJ.O^ PLOTS* 

:GC036 


::di25 

2e* 

c 


0 t-i V 3 G 


L0I?6 

2G* 


30 CONTINUE 

GuCG4Q 


C0127 

30* 


ir 1 JOPTMI .XL* 2 > 00 TO 40 

CDG::,4 0 


CC131 

31* 


call TIllPLT lliQPK rirXDl 

CCL 04 2 


GDI 32 

32* 


TF < 7LXn *7.E. 0 J GO TO 5D0 

tPCt4 fc 


□ CIZ'* 

23^ 


GO 70 10 

tcccso 


CC13^ 

34* 

c 


CGCOSQ 


DOI 34 

2S* 

c 

RCQl LOCUS PLOTS. 

EOfiSSC 


0G134 

30* 

c 


COtuSO 


;-ri js 

27* 


40 coniiuur 

COt0S2 


DC136 

28* 


If ( IDPTM) *xr. 3 ) OD TO SO 

tCl.'0S2 


lC14J 

30* 


call R7LPL7 (W0ff«.IFW01 

GLLa54 


oom 1 

4C* 


IF 1 ir^jD .ME. 0 1 GO TO' 500 

GOGOL e 


CQiHZ 

4 J * 


GOTO 10 

1> O' Inf 6 2 


00 143 

42 * 

c 


GCttGZ 


f/ri43 

4 3* 

c 

TpA^isrro rufrcTTox plots. 

CC0r:6 2 


COI43 

44* 

c 


CCLiiuZ 


C0144 

4S* 


50 COXTTKUr 

GFC364 


'G145 

4S* 


If 1 7DPTt:> -xr. 4 1 GO 70 60 

COGGt 4 


to 1 47. 

47 * 


call TXfPLT lU0f7K#W0XKC10Dll,U0PK(2a0ll »irNDI 

LOtLGL 


to 100 

4 £• 


IF r lEUO -uc. 0 1 GO TO SOO 

SCLr74 


C31S2 

40* 


cn TO 1.0 • 

tCuL76 


ctir.2 

5 : 7 * 

c 


CCOtTfa 


cc:02 

Si * 

c 

STEADY STATE PLOTS. 

GOLOTfa 


OG102 

S2* 

c 


tOGG76 


001 S3 

53* 


GO cciniMur 

L 1 C 


101S4 

5 4* 


IF t 70P7(n .?ir. 5 ) GO TO 4C0 

LDGI J2 


tCI5<i 

55* 


CALL SIMPLT tVOr?K,ICXOI 

GCGtS2 


:CJ.S7 

S L* 


IF f IFLD «ur. 0 > GO TO 5 DO 

LDt JCL 


ODUl 

S7* 


00 70 l£j 

or e 1 1 0 


IGIU 

5S* 

c 


rten c 


tcisi 

50* 

c 

rppo/f 

OOtl 1 c 


GGlbl 

SI* 

c 


ecu IG 


:Git*2 

0 I ♦ 


4 00 COin iUUE 

tocn 2 


2&ib3 

S2* 


IF f 3ERCXT *GT. JO ) GO TO 5CQ 

GOU 1 2 


00JS5 

62* 


VPI7E (6,4101 

C2tl 1 S 


ro207 

S4 • 


410 rCftPAT 1///1Y .ZDllH*) ,£6H INCORRCCT IXTE»PCDIATC PLOT DATA HAS BCC 

tOU22 


CD1C>7 

OS* 


DCirClLD. CDUTIXUATIOU WILL HE ATTEMPTED. ,20tlM*»///l 

CCU22 


00170 

St* 


irnCXT = TCDCX7 ♦ 1 

CGU2 2 


LD171 

67* 


. GG TO 1 C 

L0U25 

CJ 

:.ci7i 

Of'* 

c 


CGG125 

o 

ocm 

60 • 

c 

rrn . 

'‘0U2S 

CO 

LC 17 1 

7- * 

c 


CCU25 


tD172 

71 • 


SCO CCMIFUE 

ecu 2 7 

o 

i— A 

go: 73 

72* 


STOP 

CCU27 

07 

O 

CCi / 4 

72* 


EKQ 

tOLl 32 

J 

07 








XJO 

o 

to 

0 
•— » 

GO 

O 

1 

OJ 


SUHf?0U7IfiE PLOtC 


ENTRY ROINT 0D0G55 


STORAGE used CODE f 1 1 C00067; OATAtO! 000010? BLANK C0MK0Nf2) ODCOQO 
COMMO^N n LOCKS 
D003 2 scale 000 OGH 

ClfTEPNAL RCrCRENCES r BLOCK » NAME) 

OO’C^ OXMXHN 
0005 CPPLOT 
3306. r:CPP3$ 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


OOOT C00022 lOL 
GO.CJ R EQQGOO KHAX 


GDOO G000C3 INJPS 
0n03 Tf CQQGDl XHIN 


DCOO I 00D002 L 
Q003 R OD0002 YM AX 


GCOO r DOOGOl H 
0303 9 000003 YHIN 


0000 I 000000 nun 


u 

Ui 


GO 103 

!♦ 

GPLOTC 

COOOCO 

GDlOl 



S UD no UT I NE PL 0 TG C H , X , Y , I AUTO) 

ooccno 

roiGi 


C 


CDUOCC 

bo 101 

4# 

C 

SUBROUTINE UfUCH CALLS PLOTTING SUBROUTINE OPPLOT 

cooncQ 

GO 101 

5* 

C 


C0DD3Q 

COiOl 

6* 

G 


COOCQC 

CC 101 

7* 

G 

H = Nim&ER or POINTS TO BE PLOTTED 

CDCCOC 

1 0131 


G 

X = ARRAY OF POINTS FOR ABSCISSA 

uOOLOO 

roiQi 


G 

y = array of points for ordinate 

C0C03C 

to 131 

1C* 

C 

lAUTO-O AUTOHA TIC SCALING 

ECDDOC 

00131 

114 

C 

lAUTOrl AXIS VALUES PROVIDED IN 2SGALE 

C3030C 

LOlQl 

1 ;* 

c 


C0C033 

GO JO 3 

13* 


C eh HON/ 2 SCALE/ XM A X , XMT N , YHA X, VH IN 

LOCCCO 

001 j4 

14* 


DIME NS JON Xm^YMI 

cccuao 

\.D105 

154 


data kuk /■□/ 

rcLooc 

00 1G7 

It * 


n^m 

0GCO30 

CLllQ 

174 


NUH::NUH*1 

OGOCO 1 

001 11 

le* 


L^IABMH) 

C0uUO4 

QD112 

19* 


irtM.fil.CI NUH zO 

Goorofc 

DO 1 1 4 

20* 


IF iNUM^LT. 8 ) GO TO 1 0 

COLCl 2 

DC 1 1 b 

214 


NtJH =V 

cacDib 

ce 117 

22* 


N=L 

L.CC01 7 

00130 

234 

10 

CCNTINUE 

rrc322 

001 ?1 

244 
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f:r*-ALOCl r<PAGGE (2)1 *Z.OCQl 

io^n 

71C* 



I F ( GF *GT -KS 

ZCH^l 

20J* 

c 


JKSUfir TG/.T 7H£ FlZlO CPU COJlTAlM THC LARGEST NUKatR 

rc^i I 

207 • 

c 


zn^i 1 

2C3* 

c 



3GM3 

2^4 • 



1,gP,k5-2I 

DO‘f j^i 

? ■: ^ * 



CALL Ft 7Tf ( >’XJP&£R,1.'S, XJ) 

15 

?:,*:* 



CALL .Pulk (rK7Rtl4 ,I J) 

G041G 

2-^7* 


9 50 

crifT iGor 

ZL^il 

2LP • 



77]^/X :: APA71 <AfiS (HAXIS n 1 1, AesfHAXlS t25 m 

ZLU23 

?C9 * 



GSr AtF'G \r t T/HAX J *3 *DQ01 

:0h.2I 

23 ^ * 



J = G 

GG'j31 

71 ]• 

c 



» L- ^ t 1 

217* 

c 


VJLt /» •£* FORHAT Bl HC003RED FOR THE HORlZOtaAL AAlS 

ZZ*i2i 

?n* 

c 



cr-‘i22 

214* 



IF IGS^LT » 1 -QPpfiS* GT* 5 ) J-Q 

tJ" M H fc 

775* 



00 717 3 -i 

GC*i27 

21t • 



f .*^7 5 m -FH79 ( TO) 


217* 


9 70 

CCHlUMt 

ZZ^Z2 

Zlt* 



ir t j .re .c 1 GO 7 0 i coP 

CZh^U 

217* 



GrrALrCiC (PAGOr ( 3 ) ) ^3 .0003 

CZ*, iS 

27C* 



H (G9.LX.LSlirP"G5 

CC^35 

721 * 

c 



G r 3 5 

zzz* 

c 


IGCLlPr THAT WL flLlti CAM COMTAIM THE LARGEST MUHEER 

00^35 

22 2* 

c 



CC537 

224 • 




r 

22«= • 



CALL r L T R t *i F P , J| S ^ 7 J ) 

00*14 t 

22 C * 



CALL F(iTR frHTS,l3tIJ) 

:C442 

777 * 



CALL I'OTR (THIS, 27, IJ) 

C C. r 4 3 

7 Zr* 



CAU PUTP (rhTS,33, JJ) 


229* 


IDGO 

CTG7 J -» Jf 

t G 4 4 5 

23C* 



IF'-TPM 


2Z\* 



IGF F'l 

CC447 

232* 



irup.CT . 1 ) loff-iP-i 


0CL^>J i 
LCCC23 

CCL02 3 

ncLtz^ 

lC^L^ 2 

LDC*y^^ I 
CZCi I 
1 

& 1 

LOLf 7Z 
LCZlGO 
Z0L7Zb 
CCC7ZO 
CCC.7S6 
CCZ71C 
LCZ177 
r:ac736 
l,CL7^^C 
DCC-J^C 
CZZlk2 
UZU1Z5 
CZC7B5 
CZC7S5 
CDC7BS 

Cr}Z777 
OZiCZ^ 
ZC 1 L I 2 
CZ 1LJ2 
LC1C2Z 
LC1L22 
CCIZZZ 

iniczi 

LCIQZ2 
UBiZZB 
CDlLiH 
CCJGOZ 
C0JZB5 
LClCtb 
C-D 1 Cb7 
ZC11C2 
CO t i u 2 
iciizz 
CDUC2 
C3 t 11 G 
an U2^ 
con 31 

LiGi I3ir 

GOlmJ 
G3115 J 
GO 1151 
GO U 5 3 
C01155 
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OC4I5I 

233* 


n-c 

001164 

ZDH52 

23*f* 


DO J5G0 Lri,NU« 

DO 1167 

OCHSS 

235* 


Lf)C=lP 

CC1176 

GCHSb 

236# 


I=mxn.5*lTDCLI-T)f0fin/DELTllll 

CDl 177 

00**57 

237* 


lM3,LT*L.0D.T.GT.l2n60 TO 1200 

LD1212 

ZCH^l 

23P* 


J“ir l>r51,5-CX0CL)-TXDI2n/0£Lr<21> 

CC1227 

CG<tfc2 

239* 


rr(J*LT*l .Of?. J.GT. 51100 TO 12GD 

0G1242 

nG46r2 

240* 

C 


001242 

JO^^i2 

24 1 • 

c 

CHrCK rop KULTIPLC POINTS 

OC J242 

cCH62 

242* 

C 


CC1?42 

CC^^b** 

?43* 


CALL FLTT < riRAPNR 1 2 , J) tPOPAPHl 

001257 


?44» 


If 1 PGfJAPH .CO. POINTMPI 1 GO TO 1500 

EG 127 1 

•:c^t7 

2^15 • 


IT r POPAPH .to. POItJTtl) 1 GO TO 15Q0 

on ?74 

CC467 

. 24 6 • 

c 


OC 1 274 

CGi|t7 

2 4 7 * 

c 

7JUS aifcK IS MAcin?7c ncPEhoewT cnc 6600 

CD1274 

*,C4b7 

24& • 

c 


001274 

CCM7 J 

24 V* 


IF 1 P6n/^P>1 .6T. P01NTI2J .AND* rGRAPlI *LE. POlNTUQI 1 tOC = 12 

001377 

Ci'’n73 

2SC* 


C7LL PUn «GRAPj|Rl2tJ III »POlMTtLOCI 1 

OQ 1 3 1 7 

QG^74 

25 1* 


Gd to ISDO 

001333 

GCM7& 

252* 

12 GO 

CONTINUE 

DC 1 335 

CGHTb 

25 2* 


JUTrl 

OOM35 

cDM77 

25 4* 


h±M*l 

001336 

uCbJ3 

255* 

isno 

CONTIMur 

001 143 


25 L* 


ir(»UPJ*LT*P.ANO*TP.LT.JGIGQ TO 2000 

001343 

CCS3i| 

257* 


K-J 

DP 1 36 0 

GCSG*4 

256* 

c 


CC 136D 

UL'-GOH 

259* 

c 

WPI7C OUT PLOT 

001360 


?6t * 

c 


1/01360 

CG?i35 

Ibl* 


00 ITCD Tri^Sl 

00 1365 

^C:alU 

26?* 


IF tP00Mi5KEQ.ll GO TO 16GD 

DG137 1 

C3512 

26 3* 


VPJTSnoiJT PilSSOJ LEFTCll * f GR APH2 ( J 1 11 « j:: 2« 1 4 } 

00 3 3T6 

CCb21 

264* 

15 50 

rOPPAT nX,Ali9X,12A10«Al) 

rni4i2 

CC522 

205 * 


GO TO 17G0 

G01412 

CC525 

266 * 

1600 

uri T£ tIOUTP iFMTPI LEFT M 1 , «6P APHR IJ,! 1 tJ-1, 1 41 

CD 14 1 4 

oei.32 

26 7* 

17 GG 

CONI irajF 

LO 1 4 36 

OC?i34 

2oa* 


WT J TfnouTP^FHTSl CHAXISCJI ,JM ,251 

LC 14 36 

C0537 

2b V* 

2000 

c r N 1 1 Nur 

001447 

co&j^a 

27G* 


RETURN 

DC 144 7 

CCSN 1 

271* 


EKD 

00 1513 
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SUBftOUTINC OXHXnH 


£«TBT POIMT 000062 




K» 


STOS*SE liSEO CODEfn C00I?1; DAT^i(O) D00021 ; BLANK COH>lONf2> OOOODO 


EXTERNAL REreRLKCES IfvLOCK, NAtlE) 
Q003 »LRR3S 


StOfiAGE ASSIGNMENT |BLOCK» 7YPL> RELATIVE LOCATION. NAMEl 
DODl DCDOIS 11 IG onoo 1 000030 1 0000 000003 INJP* 


COlOO 

!• 

CQXf*XMN 

COlQl 



SUeROOTINE QXMXMWt K .Y ,fl ,AMAX t AHIN .OKaXiOHINI 

L'ClOl 

3# 

C 


CClOl 


c 

SUBROUTINE TO DETERMINE MINIMUM AND MAXIMUM VALUES Of 

:ciGi 

s • 

c 


COlOl 


c 


GCICI 

1* 

c 

N = Number or plot points 

:ciDi 


c 

X = apray or POINTS roR ai^scissa 

CCiOI 


c 

y r A'^RAY or POINTS FOR OROINaTE 

.GlCl 

1C» 

c 

AM AX - MAXJPUK VALUE IN X-ARRAY 

SOICI 

11* 

c 

AMIN - MINIMUM VALUE IN X'ARRAY 

COlCl 

12* 

c 

OPAX * maximum value in Y-ARRAY 

CCIGI 

13* 

c 

OPXN ~ MJN1>-UM VALUE IN Y-ARRAY 

OGlOl 

14* 

c 


C0103 



STMCNsIarj Xf 1 >, Y* 1 ) 

OCICH 

lb* 


AMAX“-1 .136 

C0105 

17* 


AMl?; = Ur36 

GOint> 

u* 


0KAX=-1 .liU 

c-0i{?7 



OM.I N- 1 .C36 

:.oii3 

2C» 


DC 1 i::i ,N 

60 U 3 

21 ♦ 


AMAXrAMAXt tX{M,AMAX) 

C0U4 

22^ 


AMI urAMija ( X n 1 , APiru 

cons 

23* 


. OMAX = 1 ( Y n 3 f OMAX ) 

GDU6 

24* 


0MIN-/M1NI (TCn vO.HIN) 

rcu7 

25* 

1 

CENT 3NUC 

DO 121 

26* 


RETURN 

r:oi22 

27» 


END 


OCCOC2 

eOGOQ? 

ODODD2 

CGCCO? 

DCD002 

CC0ZC2 

cconoz 

C0CDG2 

LGLCnZ 

eoGOoz 

DCLD02 

rccroz 

cocnoz 

tcLcnz 

C0C002 
CD4,r72 
OOCOC4 
COLGOS 
LCGLOL 
LOLOl 5 
OCOOl S 
uCCG22 
COLOIO 
LCCC36 
CCLj 04 S 
UOoG<< 5 
GD012D 


BCS 40180-3 


SliHROUTiNL RTLPLT ENTRY POINT 000525 


5T0RAGC USED CODE <11 OGOSim; OATA<D) 00^4102? BLANK COHHONC2I CDOOOO 

CONMON BLOCKS 

00Q3 CPLOTS D00071 

DuO*t 2SCALE 000Ct)«4 


tXTCRNAt REFERCNCES IBLOGK, NAHEI 


QCC5 

MfiHir 

Q006 

GRTOLT 

QC07 

NNCoOS 

ocia 

LlL-r-LT 

□on 


on:2 

MOIS 

00 n 

Ninis 

Gcm 

M031 

00 i 5 

NERR 3S 


STORAGE ASSIGMNENT {BLOCK* TYPEt RELATIVE LOCATION, NAMEl 


GOQl 


000027 

lOL 

0201 


000176 

ICOL 

0001 


00001% 

U&G 

QOQl 


000316 

120 L 

OCOl 


CQ037T 

not 

0001 


ocrm4 

140L 

Qoo: 


0C0431 

150L 

OCDl 


000440 

163L 

0001 


000301 

2206 

occi 


C0D336 

2346 

0001 


000352 

2456 

0000 


004010 

2sar 

ocoo 


004017 

26Dr 

OCOl 


000503 

270L 

ODDI 


C00124 

30L 

0 0 Cl 


OOC132 

SOL 

oroi 


G00152 

70L 

0001 


D00156 

90L 

0003 

R 

000DD2 

DATE 

0C03 


G00015 

ElfHHY 

OOLO 

p 

C03750 

EP2 

coco 

P 

CC3775 

0P21 

OCDO 

R 

003774 

EP2R 

OGQO 

R 

004U35 

GAIN 

0 000 

1 

CO 3 76 1 

I 

GOOD 

1 

0L3767 

UUTO 

0CG3 

I 

onooDi 

ICfiSE 

□coo 

T 

OQ4C3S 

IGA IN 

0C03 

1 

OOCO J4 

INDEX 

OCCD 

1 

C0577? 

INOPT 

0000 


00^353 

INJPS 

0003 


rOGGOO 

I Cl P T 

□ 00 0 

1 

004001 

11 

OCDO 

I 

0D4G02 

1? 

occo 

1 

L.J40D3 

J 

UOCO 

1 

COifCO? 

K 

orao 

I 

DG3 766 

N 

ocoo 

T 

003772 

NRIVl 

OCOO 

T 

003770 

f.nivft 

wLCO 

7 

OJ4n04 

NK 

0000 

I 

i OMOOO 

NW 

OOl.0 

I 

n03776 

NR 

oi:oo 

1 

003773 

NS 161 

0000 

1 

003771 

NSir4R 

0CC3 

n 

QCOC37 

PLOTID 

DDU3 

D 

cor'csi 

PTITLt 

OOJD 

R 

CL400b 

RI 

0003 

D 

QO0C04 

RL PAR 

OCDD 

R 

C03763 

RKAK 

Qc:o 

p 

CJ376? 

RP 1 M 

0000 

R 

ccMcas 

RP 

000 3 

R 

GDOOU 

SCAtl 

G003 

R 

O0D006 

SC ALR 

00 C4 

R 

Q0GG02 

SHAXl 

0CL4 

R 

concDc 

SMAXR 

odu^ 

R 

GG0033 

SJUNI 

0004 

R 

COCUOl 

SHI NR 

o:oo 

ft 

000040 

A 

occo 

R 

002010 

t 

occo 

R 

CG376S 

VMAX 

0000 

R 

003764 

THIN 

GCCG 

0 

ccnoGo 

2PrR 














Goiao 

1* 

CRTLPLT 

QQ0CQ2 

DOlOl 

2* 


SUBROUIIHE RTLPLT (flOOT.lCNOl 

000002 

com 

3 + 

C 


030002 

rciDi 

4 ^ 

C 

PURPOSE - TO OUlLO * BOOT LOCUS PLOT FOR N0«S1H. 

C0CG02 

:oiQi 

5^ 

C 


0CLCC2 

LClCi 

6* 

C 

BOOT - A WORK SPACE INTO JMICH DATA IS BE At), 


:ciGi 

7« 

c 


CCLC-.? 

CC103 

&* 


COHHON /CPLOTS/ lOPT , TEASE ,PA TE (2 ) .^LPAR, SCA LfH 3 J ,SCALH 31 , 

0CC0C2 

C3103 

p* 


♦ INDEX, nuHHTI t 31 .PLOnOI S»,PT1TL£( 8) 

C0LuC2 

00104 

1C* 


OOUPLE PBECISTON BLP AB ,Pt OT 10 ,P I J TlC 

!.CL0a2 



BC5 40180-3 




> 


0010*4 

n* 

C 


00105 

12 * 


COMKOM /TSCr^LE/ S HAXH , SMIHR , SM*>f I . SM IHI 

J 0105 

12 * 

c 


L 01 C 5 

m* 


02 MGK 5 I 0 N ROoTt U 

CG 137 

15 ^ 


OOUPtf PPCCISIOK ZBrBll 6 l 

CO 110 

16 * 


OTHCHSlOll X \ ICQOltYUCDD) ,GAINt 4 p 5 Q» ,I 6 MNC 4 .SOI 

c c 1 n 

17 * 


EPUTVALffrer (GAiNU.i ). 10 ft me 1 * 1 M 

r c u 2 

If:* 


OftTA rpz /l. 0 £' 4 / 

CG 112 

19 * 

c 


CCU 2 

. 20 * 

c 

READ ROOT ARRAY- 

:'Dii 2 

21 * 

c 


GGl 1*4 

22 * 


READ 126 ,EHO = 27 a) 4 R OOT 1 1 1 . 1 - 1 » T N DE X 1 

:cl 22 

23 * 


5 cotnirnjf 

:ci 22 

2*4 • 

c 


DC 122 

25 * 

c 

riMD MAX ftwn KIK VALUES. 

CC 122 

26 * 

c 


0 012 3 

27 * 


RRIN r 1 .0 

0 C 1 ^^ 

2 ’.* 


SpAX :: C -0 

CC 12 S 

27 * 


YPTN = 1.0 

CC 126 

3 2 * 


Yr.AX = Q-D 

CL 127 

31 * 


7 = 1 

CG 130 

32 * 


10 CONTlNUf 

0 C 131 

32 * 


N = BOOT (11 ♦ Q.l 

0 C 112 

34 * 


CALL PKKX <B 00 TU* 3 l.N»RnTN#RHftX> 

C 0133 

35 * 


CALL PNHX (ROOT(I* 3 *Pn .N.YHlHtYMAX) 

DC 13«4 

36 * 


1 = 1 + Z*N ♦ 3 

rous 

37 * 


ir 1 J .LI. IKDEX 1 00 TO ID 

□ OUT 

3 B* 


IF t. YHIN *L 1 . C -0 1 THIN = 0.0 

00137 

37 * 

c 


□ CUT 

4 t* 

c 

FIMD SCALE VALUES, iF THEY ARE NOT PROVIDED -REAL. 

QCU 7 

41 * 

c 


ocmi 

42 * 


IF 1 SCAlRMl -Lt. SCALR (21 1 GO TO 30 

CO 1*43 

43 * 


20 COM^fuC 

0 C 1 H 4 

44 ♦ 


SKirm = D-D 

coms 

45 * 


S^AXR = 0 - D 

CCH 5 

46 * 


JAU 70 = 0 

□OUT 

4 7 * 


Call r RIOLI tiz ,RHIN,RHAX.SHlMR, 5 HAXR,NDlVft,«SIGRI 

ccuo 

4 £* 


CO TO 50 

CD 151 

40 • 


30 corinuuE 

rcu 2 

SC* 


srjvn z scftLRm 

00153 

51 • 


SPAXR = SCAIRC 2 I 

0 C 154 

52 * 


J 7 U 10 = 1 

:D 155 

S 3 * 


50 COUllNUE 

C 0155 

54 * 

c 


00155 

Sf.* 

c 

FlPiU scale VALUES, IF THEy ARE NOT PROVIDED - IMAGINARY 

ecus 

56 * 

e 


OClbb 

57 * 


IF ( SCALini *LT. seALH 21 1 GO TO 7 Q 

OC 160 

S P* 


60 CCM T ! LUt 

'D I 6 l 

50 * 


SFIMl = 

GClfa 2 

6 T * 


SHAX 1 = □.□ 

C 0163 

61 * 


CALL emOLt ( 12 ,YH 1 N, YHAX,SM 1 N 1 , 5 M AX I , N D 1 V 1 , NSIGI 1 

CC 164 

6 ?» 


r»fl TO 7 0 

r C 1 65 

63* 


70 CPMiniUE 

:cu 6 

64 * 


SPlia = SCAL J (1 J 

CG 167 

tr t 


SMAXr = SEAL I (2 » 

CC 170 

66 * 


9 G ccrniNUE 

0 Dl 7 i 

67 * 


fPZR = ( SHAYR-SKINR 1 * 0 .DD 2 


C0C002 
COOE3C2 
C0CCO2 
tOCO^Z 
-CCD32 
UDCCD2 
CDCZCZ 
CCCC22 
CO u C 0 2 
3CLC02 
occr:D2 
CCCC32 
CCCG17 
OO-Cl 7 

occnt 7 

OCOCl 7 
GOICI? 

rocc2 1 

DCuO? 2 
rOLPS 3 
col:: 2 *i 
UOCDZ7 
coor:27 
COCOM I 
CCCCJb 3 
COCCtb 
GOOC7 3 
CDLQ7b 
00C076 
50007D 
CCC07b 

cnoicz 
Cr^U G6 
CDLIQ6 
C rci07 
CGCil I C 
CDCI 1 1 
LCC122 
uOL 12M 
GOCliM 
OCC12S 
L0L127 
CCljliZ 
CDCI 3 2 
tPCl 32 
GCCl 32 
i,D^S 32 
LOU 3S 
lCU 3b 
CCLl 36 
COU 37 
LCCH.C 
;JCUL2 
cr^l L2 

LCU^*3 

CDC15L 


BGS 40180-3 225 




■KrM::;? 


CD172 

68* 



EPZI = tSHAXI-SHlWl 1 *,C*002 



G00161 

DD172 

6 

C 





000161 

CD 172 

7C* 

c 


OECOHPOSE ROOT ARRAY AND BUARANTfC SEPARATION 

OF 

ROOTS. 

C0C161 

li0172 

71 ♦ 

G 





00C161 

QC 175 

72* 



Xfil r 1.E36 



CDC16S 

aciT*i 

73* 



Ytll - 1.E36 



C0D167 

GO 175 . 

7S* 



I = 1 



DDL17C 

CCIT6 

75* 



N = 0 



E00172 

GG 177 

76* 



NR - C 



G0C173 

DQ200 

77* 



INDRT - 0 



OCLl 74 

DQl‘01 

7.«* 


100 

eONTIWUE 



C0CI76 

Dt'C52 




ir i T .GT. INDEX 1 GO TO 160 



G00I76 

DC20H 

fv: • 



ftu = P0 01 ni ♦ CM 



L0L2Cil 

GC2D5 




NR = NR ♦ 1 



000214 

GO 206 

B7* 



GftlM i 1 ,WR> r root f !♦! 1 



CCu2l 7 

DG2G7 

ai* 



GAINI2,NrM = ROOTfI*21 



0GC224 

0C210 

84 « 



1CA7N(3,NRJ r N * 1 



C5G726 

CG211 

fiS* 



n r I * 2 



□G0231 

00212 

66* 



J2 - n * NN 



0002 34 

ac:i3 

B'7* 



IT 1 GA1N(2iNRJ .EO. 5.0 .AND. TMORT .EO. 1 1 

GO 

TO 120 

CC0236 

CC’215 

* 



ir « GA1M2,NR] .TO. 5,0 1 INORT = 1 



LD0252 

00217 

8V* 



DO IID Jrl.NN 



DGC301 

CCZ2Z 

90» 



fj r H ♦ 1 



000301 

DCl‘23 

91# 



xirn “ ROOT 1 1 1 * Ji 



OOC3C3 

□ C22** 

92* 



y TN 1 = ROOT M2* Jl 



GPLJ3D6 

30225 

93* 


110 

CON 7 P VJr 



00031 1 

GC22T 

94 ♦ 



IGATN(9tNRl - NN 



000311 

GG23J 

95* 



GO TO itO 



600314 

DG231 

96* 


120 

CDNllNUE 



000316 

CG232 

97* 



H¥ r n 



030316 

G0233 

9 £ • 



DO 190 J=1,NH 



C00336 

G0236 

99* 



RR = POOlfiMJl 



GC034 1 

00237 

IQG* 



RI ROOT* 12* J) 



C0034 3 

0D2^a 

101 * 



IT < AOS(PR) .LE. TPZ 1 RR " 0.0 



L0034 5 

0C2H2 




IF i ACiSIRTl .LE. EPZ ) RI r D.O 



000352 

002^*4 

IG3* 



DO 13T, Kri ,N 



CD0362 

CCJ24 7 

lu4* 



IF 1 AOSIRR-XIKM .GT. fPZR 1 DO TO 130 



000362 

00251 

1j6* 



Xr 1 AliStRI-YlKU .LC. EP21 > DO TO lAO 



Or037C 

0C2S3 

106* 


170 

continue 



L0C4CG 

CC255 

1C 7* 



tJK r KK * 1 



CD0430 

OCZSb 

1C5» 



N - M * 1 



r.QLM3 3 

00257 

1C9* 



X«tM r RR 



COC40b 

0Q2t3 

iir* 



YIN> r Rf 



D0C411 

00201 

Ml* 


190 

corM TNur 



000417 

u0iO3 

112* 



irAlN(4 »7/RI r nk 



OOD417 

0C2fc4 

113* 



IF { N’K .Lt . 0 J NR r NR * I 



C0L422 

00266 : 

114* 


150 

CONTINUE 



000431 

2G267 

115* 



1 = 1 ♦ 3 *‘ 2 9 NN 



COG431 

C027Q 

lit* 



GO TO 100 



CD0436 

^0273 

11 7* 

C 





0004 36 

DC2?j 

IIP* 

c 


gekerme lasels and plot on printer 



000436 

G0273 

119* 

c 





G0L4 36 

0D271 . 

120* 


160 

CCNTlirUE 



r0C44 C 

00^72 

121 • 



ErCGLT </i9,?50,Z8rRl PLPAR 



0GC44C 

L0275 

122* 


250 

rGn.“tT t27»lR00T LOCUS PARAHCTER = vAaMBX! 



D0C446 

00276 

123* 



f f'COrir <B3 .?6D,?BFR<9 ) 1 DATF, ICASE 



LC044 6 

CC J02 

12 4 ♦ 


2 60 

FORMAT e2Al?,16X,17MROOT LOCUS PLOT ,13X,9H 

CASE N0tl4l 

CCC461 




BCS 40180- 



§ 


00J03 

12S* 


C*LL LJNPLT Cy.Y,W,eCrPTlTLE, 10,10MIMAG1NA^?T .^«H»4RC:AL« 

00C<I6 1 

DD3Q3 

3?6* 


16Q»ZBFR 

CO 0*4 6 1 

00303 

127* 

c 


OCOH61 

CG3P3 

126* 

c 

advance: rrtH and retu«*n 

000*461 

0C303 

12 (3* 

c 


QCOU6X 

CP50H 

no* 


RETUPN 

L0CM77 

OD30S 

131* 

2 70 

cdnttnuc . 

CCJS03 

C03C6 

132* 


IfEiO = 1 

0CLS03 

rL3J7 

J33* 


RfTURN 

ooc5a«< 

CC31Q 

U*4^ 


CNO 

DOGS^i 




BCS 40180-3 



t 


SUBftOUTJNE SlHPLT EWTRY POINT 0003ft3 


STOPAGt USED CODCn) 0D0362J DATArO> 000635; BLANK C0rH0Nf2} 000000 j 

COMRON PLOCKS | 

0CU2 CPLOTS COOGTO i 

DOn^l ZLCALC 00000*1 I 

1 

EXTERNAL RFfERENCES IBLOCK, NAME I 

0005 NKCOni 

0006 LINPLT 

0007 NKPU 3 

uOlO M03S 

con Ninz? 

0012 NIOM 

0013 KERR31 


storage assignment TBtOCK, TYPE, RELATIVE LOCATION* NAME) 


OCOI 


CG0151 

ICL 

OOCl 


000026 

lOOL 

0001 


03CD60 

1330 

0001 


000076 

XK3G 

0 001 


0G0116 

15**G 

0001 


LCC14R 

160R 

0001 


G00201 

2CL 

0090 


000553 

5 OF 

0001 


000317 

5D0L 

CCOl 


C002Z2 

5?L 

DOCO 


eocstb 

StlF 

0001 


DD02 37 

bbl 

0000 

0 

00 02** 7 

BLNH 

0003 

P 

GD0D02 

OATF 

CC03 


COOOl 7 

DUMMY 

GOOD 

I 

DLC542 

I 

0000 

1 

D00553 

1 AUTO 

0 303 

1 

OOOCQl 

1C AIE 

0000 

I 

DOC5*47 

1G 

ocoo 

1 

OOPS 35 

IL 

0003 

I 

GC0C15 

TMANUL 

0:03 

z 

0DOO13 

INDEX 

0300 

1 

DD0S36 

IN DMA X 

0000 

I 

0005*40 

IN OX 

ucco 


C036O7 

1UJP% 

DCCQ 

I 

CCC5S1 

INX 

c^oo 

I 

000552 

INY 

0003 

I 

ODOCOO 

lOPT 

ODOQ 

1 

0005*45 

IP 

OOGO 

1 

C30537 

I 1 

DDGO 

1 

0CC54 1 

J 

COED 

1 

0005^ 3 

K 

0000 

1 

0005*4 4 

L 

DCJ3 

I 

0DCC14 

Ncoors 

occo 

1 

CuD5M6 

NG 

OOC3 

T 

ocrcos 

flGRD 

LCD 3 

I 

00 000*4 

NPLT 

0303 

r 

DGC44 1 

NP CS 

otoi 


000016 

NUQRK 

0Cu3 

0 

corcib 

PLOTin 

OOGD 

0 

GCrC57 

PJJAME 

OC0 3 

D 

000350 

P7ITLE 

0 000 

H 

OLG251 

SCALE 

QOGO 

R 

0DC30C 

VAR 

U0C4 

p 

LO 000 3 

XMA X 

CiOCtl 

V. 

roccDi 

XMIN 

oroR 

R 

010302 

y^^Ax 

33G*I 

R 

000003 

YH IN 

DCDO 

0 

0D0C37 

ZUTR 






ODICO 


CSlMPLT 


CD0002 

DCICI 

2* 


SUBROUTINE 

SIMPLT COSPLr,:tNO) 

CDCCD2 

OOICI 

3M 

C 



DDDCD2 

3L101 

4* 

c 

PURPOSE - 

TO DUItT A SERIES OF SIMUEATIOM lOfl STE AOY-STATE > 

G0CD02 

:gioi 

5* 

c 


PLOTS, UP TO FIVE GRIDS PER PLOT. 

DDCC02 

CClOl 

6 • 

c 



LDCC32 

C3I3J 

7t 


OIKCNSION 

OSPLY I3I 3H , VARm» 

CCL202 

E0133 

n* 

c 



L C if 3 Q 2 

031EM 

9- 


COMMON /CPLOTS/ I 0 P T , T C fl SE , tlA T E f 2 ) , HPL T ,tJ DRO (6) , i NOE X ,NCOOC S * 

L3CCD2 

::ci34 



* 

IKANUL ,l(UORK,OUMMV( 15),PL0TI 0< 5J,PTlTLC<e) 

300CG2 

Cri3M 

n • 

c 



LCG302 

0C1G5 

17* 


COMMON /Z5 

CALC/ XMAX.XHDi.VHAX.YMTU 

C3LC32 

r U1C6 

13* 


OCUELf PRCCISlOK ? DPR , PLOT I D, Pin L C ,Pf;A ME , PL NK 

LrC302 

LC106 

1*4* 

c 



roo:c2 

DC107 

1 5* 


DI MEN ST ON 

SCAIC<5,M,6J jPNAMri 5,2,61 ,NP0SlS,2 ,6) 

CDC0C2 



228 BCS 40180-3 




;-.sl■<T*!r^^i»^r.#^s^ap^^ 


DG1C7 

16« 

C 



00CDO2 

:OMC 

17* 



niMCNSlOW 2BrRl8l 

000302 

com 

1 0. * 



DATA PLN’K /12H 

GDCD32 

CP 111 

19* 

G 



000C02 

jcm 

2l* 

C 


PCfiD data. 

D0G0C2 

CCill 

2l* 

C 



OCCOC2 

com 

22* 



RCAH r26»CN0r5D0l SCALD tPNAMf #KPOS 

C00rfD2 

CCl^O 

22* 


5 

GCNTINUC 

C0002C 

cniza 

2S* 

G 



Gcunrc 

TC12J 

25* 

C 


RCAn r.lHOlATlON DATA. 

COGO^G 

CO 120 

26* 

C 



C0LC20 

CC121 

27* 



I L r C 

UOG020 

00122 

2B* 



1M>MAV r 3131 / NcOOES 

UD0r,2 1 

D0125 

29* 


100 

com i"*ut 

C0uG26 

0C12«| 

3'J* 



I 1 = R ♦ 1 

0C0Z26 

CP125 

31* 



Tl - TL ♦ 16‘DMAX 

0CCr3G 

CC126 

32* 



IF < Tl:0£X .LT. IL 1 IL r INDEX 

030333 

CC130 

33* 



IN OX T l - 11 ♦ 1 

00604 1 

com 

3** ♦ 



J ' C 

CCC046 

GDI32 

35* 



DO 130 irri ,IL 

CCG360 

CCIJ5 

36* 



J = J ♦ 1 

CO 0(36 0 

eoi3<> 

3. * 



RTAD (26,ENDr5DQ) VrAD 

0D3P63 

COJ^l 

3B* 


110 

CONTINUE 

C0C0T6 

rci<*r2 

39* 



DO 12 ? K=l,NCO0rS 

C00C76 


SO* 



L = JMD^tAX*IK-l MJ 

CPD076 

rci<it» 

Si* 



hSPlYlL) = VARIKI 

10C103 

Dom? 

S2* 


12D 

continue 

000116 

:di51 

S3* 


130 

GONTIfSUE 

COGl 1 b 

CC151 

S4* 

c 



reel 1 6 

to 151 

ss* 

c 


JNCRCMENT over the number or plots and the NUrBER or GRIDS. 

D0D116 

on SI 

46* 

c 



030116 

0C153 

47 * 



DO 60 irrl,NPLT 

coon 6 

COlSb 

4P* 



NG r NGRn(IP) 

OCCl 32 

CD1S7 

49* 



DO 40 IG=1,NG 

0DL134 

00157 

50* 

c 



OCGl 34 

:oi57 

51* 

c 


SET SCALE VALUES If REQUIRED* 

COC134 

0 0 157 

52* 

c 



OCOl 34 

rei62 

53* 



I AUTO = 0 

GOL 144 

CC163 

54* 



If ( IMANUL .EO. 1 ^ GO TO 13 

00G144 

:‘0165 

S5« 



60 TO 2G 

000147 

00 165 

56* 


10 

CONTI MU'E 

00C15 1 

:C167 

5 7* 



Tf < scale* IG .1,1P1 ,GE. SCALE(TGt2flPI .OR* 

reel 5 1 

CO 16 7 

56* 



♦ SCALE U0,3»1P) .GE. SCALE 1 IB ,4 ,IPI I GO TO 20 

CDD15 1 

coin 

59* 



lAUTO z 1 

000166 

CO 1 72 

6C* 



XMAX = SCALE U 6, 4 t IP i 

C0C17G 

G0173 

61* 



XKIW = SCALECIG,3.IP) 

C00172 

CO ITS 

6 2* 



TMAX = SCALr(IG.2.IP) 

CCC174 

CG175 

63* 



VPITJ = SCALE <IG,1,1P1 

C0C176 

CC176 

64 * 


20 

CCNTiNUr 

C0C2OI 

0G176 

65* 

c 



DDD231 

1D176 

66* 

c 


TITLES A r TOP OF PLOT. 

r0G201 

00 1 76 

6 7* 

c 



100231 

CC177 

6P* 



IF ( TOPT .ro. 5 J GO TO 52 

CDL201 

OC231 

6 9* 



ENCODE C96,5a,26rR) 0 ATE , IP , I CA SC , BLNk 

C0C203 

CD 207 

70* 


50 

FORMAT I2A12,12X,2QHSlMULATrON 01 SPLAY, 22* IGX.IDMCASE NO. ,2<l. 

0DG220 

0Q2C7 

71* 



♦ AS 1 

C0C220 

00.210 

7? * 



GO TO 58 

000220 
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00211 

73* 


52 

COKTIVUE 

000ZZ2 

00212 

?<*• 



Cfxoor C96i5**,ZBrR> O llTr*IP,lC^SE,fiLNK 

OOC722 

CC220 

70 ♦ 



fOnHt^^ l2*12;i2X,2<<H57EA0Y STA IE DISPLAY .I2»l3X» 

CLG237 

0C220 

76* 



♦1CHCA5C HO. ,I4,A7» 

DCG2 37 

CQ221 

77* 


56 

corn^ur 

G0C237 

dg:2i 

IB* 

C 



CC0237 

0D221 

70* 

G 


CILL P«T«irP PLOTTER 

LG02 37 

0C?2l 

60* 

C 



GCG237 

C0222 

£1 ♦ 



II;X r IffOKlt • OfPOS nr3»2,lPl -1 J • 1 

GHC337 

CC223 

£3* 



IHT = inOKAX « iHPOS < IG, I ,IP) -1 t ♦ J 

ECc2*4 S 

0C.2H 




CALL 1 iHri T fDSPL Y ( TH> ) .DSPLYf IMt 1 , IMDX ,80*P TITLE t 

t JGTG? 

Q222*\ 

f 4 • 



* a.PHAHC (1G»1 ,IP) .RtPNAHE (I G « 2 ,1 P J , 80 ,2B FR , 1 AUT 0 > 

LCC352 

0C225 



•lO 

cfi>ni»!U£ 

CDL3GG 

DC227 

Bi.* 


SO 

C OH T I HUE 

C0G306 

OC231 

07* 



If 1 :L« 1 .IT. JHOEX > GO To ICD 

C0G3GG 

aC233 

60* 



RftUfiH 

C0G31 1 

0033*4 

0. *• 


SCO 

coin jHut 

D0D31 7 

OC33S 




irun :: 1 

DCC31 7 

0023£. 

* 



PC tukh 

000320 

QC237 

92* 



€K0 

00C3G1 


'iUSGPQ: 197B — 757-139/6321 Region 5-1 


sue ROUTINE TNFPLT 


ENTRY POINT 000017 




STOfrACt USCO cootru 0D0Q?3; DATAfOl 000006; BLANK C0MM0NI2I DOODDO 

CKTCPNAL WtrERENCES fBLOCK* NAME I 

0003 NRrtUl 
0 0 0*1 HI 02 4 

OODS NERnjt 

STOWAGE ASSJGKKENT iBtOCKp TYPE, RELATIVE LOCATION, NAME I 
DQCl GOC006 IDL 0003 R DOOOOO OUNHY GOOD 000002 1MJP» 


00100 

!♦ 

CTNTPLT 

000000 

LQIQI 


SUBROUTINE TNfPtT ir.GpPpKI 

COGOOC 

GQIOI 

3# 

READ f26,END::lQl DUMMY 

DOOOOO 

CD106 

4# 

ID H = 1 

000006 

001G7 

5* 

20 RETURN 

C0GDD7 

:;Gua 

6» 

END 

C0LD22 


m 

o 

on 

o 

CO 

0 

1 

OJ 



